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1.0 



ABSTRACT 



THE RK11/RK05 DYNAMIC TEST AIMS AT 

1. DEMONSTRATING THE ELECTROMECHANICAL INTREGRITY 
OF THE DRIVE, 

2. CHECKING THE LINEAR POSITIONER CONTROL AND SPEED 
CONTROL 

3. VERIFYING THE INTREGITY OF THE READ/WRITE LOGIC 

4. PROVIDING A TIMER FOR THE SEEK FUNCTION. 

THIS IS A TEST ONE LEVEL HIGHER THAN THE BASIC RKil 
LOGIC TESTS, 



2.0 REQUIREMENTS 

2.1 EQUIPMENT 

A, PDPll WITH CONSOLE TELETYPE, 

B, 8K OF MEMORY 

C, RKll OR RKVll CONTROLLER 

D, 1-8 RK05 OR RK05F DRIVES (DRIVE TYPES MAY BE MIXED) 

2.2 PRELIMINARY PROGRAMS 

RKU LOGIC TEST I (MAlNDEC-1 1-DZRKJ) 
RKll LOGIC TEST II (MAINDEC-U -DZRKK) 

2.3 EXECUTION TIME 

ERROR FREE FIRST PASS ON PDPll/20 WITH CORE MEMORY 
TAKES APPROXIMATELY 5 MINUTES (WITHOUT THE SEEK 
TIMER AND GRAPH» ADDITIONAL 3.5 MINUTES FOR THESE), 
LESS FOR FASTER MACHINES OR MEMORIES. 



3,0 STARTING ADDRESS 

200 FOR ANY NORMAL MODE OF OPERATION. ALL SWITCHESS 
DOWN 

210 FOR FUNCTION SELECTING PROGRAM (CONVERSATIONAL 
MODE), 



4,0 PROGRAM CONTROL MODES 6 OPERATOR ACTION 

PAPER TAPE LOADING 
RKDP DUMP MODE 
RKDP CHAIN MODE 
ACTU 
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4.1 PAPER TAPE LOADING 

4.1.1 LOAD PROGRAM INTO MEMORY USING STANDARD PROCEDURE 
FOR ABSOLUTE TAPES, 

4.1.2 MAKE SURE THAT THE DRIVES TO BE CHECKED ARE LOADED 
WITH DISKS AND ARE IN 'RUN*. 'WRT ENABLE* THEM, 
CHECK THAT 'WRT PROT* LIGHT ON THESE DRIVES IS OFF, 
PUT DRIVES THAT ARE NOT TO BE TESTED ON 'LOAD*. 

4.1.3 LOAD ADDRESS 200 

4.1.4 SET SWITCHES IF DESIRED (SEE SEC 6,0) 
PRESS START. 

4,1.9 THE PROGRAM IDENTIFIES ITSELF 

RKU DYNAMIC TEST 
MAINDEC-1 1-D2RKL-D 

THEN IT PROCEEDS TO FIND WHICH DRIVES ARE PRESENT 

AND PRINTS OUT THE DRIVES FOUND. IF AN RK-05F 

IS DETECTEDr AN F IS APPENDED TO THE DRIVE NUMBER! 



DRIVES PRESENT 



1 

AFTER TYPING OUT THE DRIVE NUMBER THAT IS GOING TO 
BE TESTEDi EXECUTION OF THE TESTS START, 

AFTER ALL THE TESTS HAVE BEEN EXECUTED ON ONE DRIVE 
THEY ARE EXECUTED ON THE NEXT DRIVE, IP PRESENT. 
THIS IS REPEATED TILL ALL DRIVES ARE TESTED. 

AT THE END OF A PASS THE FOLLOWING IS TYPED OUTI 

END PASS X Xs0,l,2 

CONTROL IS TRANSFERRED BACK TO THE BEGINNING OF THE 
PROGRAM AND RE-EXECUTION BEGINS. 



4,2 RKDP DUMP MODE 

4.2.1 THE PROGRAM IS LOADED BY THE RKDP MONITOR, 

4.2.2 SET 5A«200, SELECT ANY SWITCHES YOU WANT AND PRESS 
START, 

4.2.3 THE PROGRAM IDENTIFIES ITSELF AND PRINTS OUTI 



SCO 0004 



•TO TEST DRIVE 'N* HALT PROGRAM, REMOVE RKDP PACK AND REPLACE IT 
WITH A WORK PACKf CLEAR LOCATION 40, AND RESTART PROGRAM' 
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4,3 RKDP CHAIN MODE 

THE PROGRAM IS CHAIN LOADED FROM RKDP PACK ON DRIVE 
•N», AFTER IDENTIFYING ITSELF, THE FOLLOWING MESSAGE 
APPEARS I 

•DRIVE 'N* NOT TESTED' 

DRIVE 'N' WILL NOT BE TESTED SINCE THE RKDP PACK IS ON 
THAT DRIVE. 



4.4 ACTll MODE 

THE PROGRAM IS LOADED BY THE ACTll MONITOR. AFTER 
IDENTIFYING ITSELF, ASCERTAINS THE NUMBER OF DRIVES 
PRESENT AND PROCEEDS TO TEST EACH OF THEM AS BEFORE. 



5.0 DRIVE SELECTION 

IF ANY PARTICULAR DRIVE IS TO BE SELECTED FOR 
TESTING, PUT THAT DRIVE ON 'RUN', 'WRITE ENABLE'. 
PUT THE REST OF THE DRIVES ON 'LOAD', 'WRITE LOCK'. 
THEN START AS USUAL. 



6.0 SWITCH OPTIONS 

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E. AN U/34) 
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 
NOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH REGISTER. THE 
'SOFTWARE* SWITCH REGISTER IS LOCATED AT LOCATION 176 (8), THE 
SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G'. THE PROGRAM WILL 
RECOGNIZE THE 'CONTROL G* whenevtr the proaram enters 
the fcope routine or begins a new test, the 

'SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 

•SWR « NNNNNN NEW «' 

EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED,, 'RUBOUT' AND 
•CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRY. 

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE 'SOFTWARE' SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
'UP' POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
•SOFTWARE' REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 
BE FOLLOWED. 



SW<14>«1 
SW<13>«1 

SW<11>«1 
SW<10>al 
SW<09>«1 
SW<0S>«1 



JW<06>«1 
SW<05»"il 
SW<04>al 



HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR PRINTOUTS 

CYCLE ON ERROR TO THE PREVIOUS 

•SCOPE* STATEMENT 

DUMP ALL RKll REGISTERS ON ERROR 

RING BELL ON ERROR 

LOOP ON SPECIFIC ERROR 

LOOP ON TEST INDICATED BY USER (SEE 

SEC. 6,8) 

TYPE SEEK TIMER 

TYPE THE GRAPHS 

PRINT THE COMPLETE GRAPH 



SW<03>»1 
SW<02>al 

SW<00>«1 



TERMINATE FUNCTION SELECTED BY USER 
DROP THE DRIVE AFTER MAXIMUM 
ALLOWABLE NUMBER OF ERRORS OCCUR 
ASK FOR PATTERN TO BE WRITTEN OR 
WRITE CHECKED (FUNCTION SELECTION 
PROGRAM) 



6,1 SW<15> 

THE PROGRAM HALTS ON ENCOUNTERING AN ERRORr AFTER 
TYPING OUT THE ERROR MESSAGE AND PERTINENT 
INFORMATION, PRESSING "CONTINUE" RESTORES NORMAL 
OPERATION OF THE PROGRAM, 



6.2 SW<14> 

THE PROGRAM LOOPS ON THE SUBTEST THAT IS BEING 
EXECUTED WHEN THE SWITCH IS PUT ON, THIS SWITCH IS 
USED NORMALLY ALONG WITH SW 15, 



6,3 SW<13> 

THIS SWITCH INHIBITS ALL ERROR MESSAGES, NORMALLY 
USED WHEN LOOPING ON TEST (SW 14) OR LOOOPING ON 
ERROR (SW 9). 



6,4 SW<12> 

THIS SWITCH ALLOWS THE PROGRAM TO CYCLE FROM THE 

POINT OF ERROR TO THE PREVIOUS SCOPE STATEMENT. 

NOTE THAT IN DOING 50 ANY INITIALIZATION BEING DONE 

AT THE BEGINNING OF THE SUBTEST WILL BE DONE AGAIN 

AND AGAIN, SEE SEC. 6,7 FOR A DIFFERENT KIND OF 
SCOPE LOOP, 



6,5 



SW<11> 

THIS SWITCH ALLOWS DUMPING OF ALL RKU REGISTERS ON 
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ENCOUNTERING ftN ERROP, 



SEQ 0007 



6,6 SW<10> 



RINGS A BELL ON ERROR, USEFUL WHEN ERROR TYPEOUT IS 
INHIBITED, 



6,7 SW<09> 



THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE 
LOOP, NOTE THAT UNLIKE SW12 THE INITIALIZATION OF 
PARAMETERS AT THE BEGINNING OF THE SUBTEST MAY NOT 
BE DONE IN THIS CASE, THIS SWITCH IS HELPFUL WHEN A 
PARTICULAR PART OF A SUBTEST IS BEING REPEATED USING 
DIFFERENT PARAMETERS AND YOU WANT TO SCOPE ON THE 
PARAMETER IN ERROR, (EXAMPLES RKDA IS BEING WRITTEN 
AND READ BACK WITH COUNT PATTERNS FROM 1 TO 177777, 
PATTERN 561 IS GIVING ERRORr YOU MIGHT NOT WANT TO 
GO THROUGH THE 560 PATTERNS BEFORE HITTING ERROR ON 
THE 561TH PATTERN. IN THIS CASE SW 9 WILL GIVE YOU 
A SCOPE LOOP ON THE 561TH PATTERN ONLY.) 



6.8 SW<08> 

THIS SWITCH IS USED TO SELECT A PARTICULAR TEST FOR 
EXECUTION, WHEN THE PROGRAM IS STARTED (200) WITH 
THIS SWITCH SET, THE FOLLOWING MESSAGE APEARSi 

OCTAL TEST#7 

THE USER SHOULD REPLY WITH THE TEST NUMBER (OCTAL) 
HE WANTS TO SELECT, FOLLOWED BY CARRIAGE RETURN, 

THE SELECTED TEST IS EXECUTED AGAIN AND AGAIN. TO 
GET OUT OF THIS LOOP, PUT SW 8 BACK TO 0, THIS WILL 
RESUME NORMAL OPERATION OF THE PROGRAM. NOTE THAT 
BEFORE TEST 4 CAN BE EXECUTED TEST 2 SHOULD HAVE 
BEEN DONE AND TEST 6 SHOULD HAVE BEEN DONE BEFORE 
TEST 7, 



6,9 SW<06> 

THIS SWITCH WHEN SET MAKES THE PROGRAM TYPE THE SEEK 

TIMER. THIS SWITCH CAN BE SET OR RESET BEFORE OR DURING THE 

SEEK TIMER EXECUTION, AND EVEN WHILE THE TYPEOUT IS 

OCCURING, 



6.10 SW<0S> 

THIS SWITCH MAKES THE PROGRAM TYPE THE GRAPHS, IF 
RESET BEFORE THE GRAPH-PLOTTING ROUTINE IS ENTERED, 
THE GRAPHS WILL BE SKIPPED ENTIRELY, IT CAN BE RESET 
EVEN AFTER SOME OF THE POINTS HAVE BEEN PLOTTED, TO 



SKIP PLOTTING REST OF THE POINTS, 

SEQ 0006 



6.11 SW<04> 



THIS SWITCH IS USED TO SELECT THE COMPLETE GRAPH 
OUTPUT (SEEK TIMES OF ALL CYLINDERS ARE PLOTTED) 
NORMALLY WHEN THIS SWITCH IS NOT SET, THE SMALL 
GRAPH (ONLY SELECTED CYLINDERS PLOTTED) IS PRINTED 
OUT, 



6.12 SW<03> 

THIS SWITCH WHEN SET TERMINATES THE EXECUTION OF THE 
FUNCTION SELECTED BY THE USER (SA«210), A NEW 
FUNCTION MAY BE INITIATED NOW, IF YOU WANT TO KEEP 
ON LOOPING ON THE SAME FUNCTION, PUT SW 3 DOWN, SEE 
SEC. 9.0, 



6.13 SW<02> 

THIS SWITCH ALLOWS THE PROGRAM TO DROP A DRIVE FROM 
THE SELECTION LIST AND TESTING, AFTER MAXIMUM 
ALLOWABLE ERROR COUNT (TOTAL NUMBER OF ERRORS) ON 
THAT DRIVE IS EXCEEDED, THE MAXIMUM ALLOWABLE ERROR 
COUNT IS 6, AFTER 6 ERRORS HAVE OCCORED THE DRIVE IS 
DROPPED AND A MESSAGE ( DRIVE » XXXXX DROPPED) IS 
PRINTED, 

6.14 SW<00> 

THIS SWITCH IS TO BE USED WITH THE FUNCTION 
SELECTION PROGRAM (SA«210), IF A WRITE OR A WRITE 
CHECK FUNCTION IS SELECTED WITH THIS SW SET» THE 
PROGRAM WILL ASK FOR THE PATTERN TO BE WRITTEN OR 
WRITE CHECKED (PATRN?), THE USER SHOULD TYPE IN THE 
(OCTAL) PATTERN, THIS PATTERN WILL BE WRITTEN (OR 
WRITE CHECKED) ON THE DISK, FOR FURTHER INFORMATION 
REFER TO SEC, 9,0, 



7,0 PROGRAM DESCRIPTION 

THE FIRST TEST IS AIMED AT DETECTING IMPEPENDING 
ELECTRO- MECHANICAL FAILURES IN THE DRIVE AND 
INNER/OUTER LIMIT SWITCHES, 

IN THE NEXT TWO TESTS, THE DISK IS FORMATTED AND 
CHECKED FOR CORRECT FORMATTING, IF THE DISK IS 
AN RK-05F, THE ENTIRE DISK IS FORMATTED EACH TIME 
THE EVEN DRIVE IS TESTED, NO FORMATTING IS DONE WHEN 
THE ODD DRIVE IS TESTED. THE DISK IS CHECKED EACH 
TIME FOR PROPER FORMAT, HOWEVER. 



IN NEXT TWO TESTS THE SEEK LOGIC* POSITIONER, ETC 
ARE CHECKED OUT BY DOING IMPLIED SEEK, USING TWO 
DIFFERENT SEEKING PATTERNS, THE FIRST ONE IS A 
DECREASING SAW-TOOTH PATTERN 

(0-312-0-3tl-0-310,,.,)f THE SECOND ONE IS A 
CONVERGING-DIVERGING PATTERN 
(0-312-1-311-2-310...,), ON GETTING AN ERROR, 
FURTHER ANALYSIS IS DONE TO FIND OUT MORE ABOUT THE 
NATURE OF ERROR, MANY TIMES ADDITIONAL INFORMATION 
IS GIVEN FOR THE CONVIENCE OF THE USER, RETRIES ARE 
DONE WHENEVER AN ERROR OCCURS, 

IN THE SUBSEQUENT TESTS EXTENSIVE WRITING IS DONE 
USING MORE THAN 2000 DIFFERENT PATTERNS, THE DATA 
IS READ, (SOFTWARE) COMPARED, AND WRITE CHECKED, 

EVERYTIME ftN ERROR OCCURS RETRIES ARE DONE, TO CHECK 
IF IT WAS A RECOVERABLE ERROR OR NOT. THE USER CAN 
CHANGE THE PATTERNS TO BE WRITTEN ON THE DISK, THE 
DATA TRANSFER BUFFERS CAN BE RE-LOCATED BY THE USER 
TO DIFFERENT PARTS OF MEMORY, REFER TO LOCATIONS 
•PBUF0', 'PBUFl', 'PATl', 'PTPN01' IN THE LISTINGS 
FOR MORE DETAILS, SEE SEC 7,1, 

THE SHUNT CURRENT CHANGE TEST WRITES, READS AND 
CHECKS FOR ERRORS ON CYLINDERS 127 AND 128, THIS 
REGION HAS CRITICAL "PACKING DENSITY" TO "WRITE 
CURRENT" RATIOS, 

THE SEEK TIMER PROVIDES SEEK TIMES AND GRAPHS AS 
EXPLAINED IN SEC 8,0 

A FUNCTION SELECTION SUB-PROGRAM IS PROVIDED FOR 
USER SELECTION OF FUNCTIONS, SEE SEC 9,0 

EVERY TEST IN THE PROGRAM IS PRECEEDED BY AN 
EXPLANATION OF THAT TEST, THE USER IS ADVISED TO 
REFER TO THAT, IF MORE INFORMATION IS NEEDED, 

7,1 PERMISSIBLE USER PROGRAM MODIFICATIONS 

THE USER CAN MAKE MINOR CHANGES IN POINTERS, TABLES, 
ETC. TO TAKE CARE OF HIS SPECIAL NEEDS, IT IS 
ADVISABLE TO MAKE CHANGES IF ANY, RIGHT AT THE 
BEGINING. 

7.1.1 SEEK TIMING CAN BE DONE BETWEEN ANY TWO CYLINDERS, 
BY MAKING CHANGES DESCRIBED IN THE CYLINDER ADDRESS 
TABLE AT LOCATIONS 'SOAD' AND 'SIAD' IN THE 
LISTINGS. 

7.1.2 IN CASE YOU HAVE A LINE PRINTER AND WANT YOUR OUTPUT 
ON THE LINE PRINTER, CHANGE LOCATION 'STPS* TO 
177514 AND LOCATION 'STPB' TO 177516 (LINE PRINTER 
VECTORS). 

7.1.3 INPUT/OUTPUT DATA BUFFERS (FROM WHERE DATA TRANSFERS 
WILL BE DONE TO AND FROM THE DISK) CAN BE RELOCATED 
TO ANYWHERE IN THE 28K OF MEMORY (DO NOT OVERLAY THE 
PROGRAM), THIS CAN BE DONE BY CHANGING THE CONTENTS 
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OF LOCATIONS 'PBUFB' AND 'PBUFl' TO THE STARTI^fG 
ADDRESSES OF THE TWO USER SELECTED BUFFERS, IT 
SHOULD BE NOTED THAT EACH OF THE TWO BUFFERS SHOULD 
BE 768 (DECIMAL) WORD LONG, 

7.1.4 FOUR DIFFERENT PATTERN GENERATOR ROUTINES HAVE BEEN 
USED IN THIS PROGRAMI A, PTGEN0 B, PTGENl C, 
PTGEN2 D, PTGEN3, THEY HAVE BEEN DESCRIBED IN 
DETAIL AT CORRESPONDING LOCATIONS IN THE LISTING. 
THE ORDER IN WHICH THEY ARE CALLED IS DESCRIBED AT 
THE BEGINING OF TEST 6. THIS CALLING ORDER CAN BE 
CHANGED BY MAKING CHANGES IN THE FOUR POINTERS 
A,'PAT0' B. 'PATl* C, 'PAT2* D, 'PATS', THESE 4 
POINTERS CONTAIN THE STARTING ADDRESS OF EACH 
ROUTINE. 

7.1.5 AS A SPECIAL CASE OF THE ABOVE, YOU CAN WRITE THE 
SAME TWO (OR ONE) PATTERN/S ON THE ENTIRE DISK USING 
•PTGEN0' ROUTINE, TO WRITE THE SAME ONE PATTERNI 
CHANGE LOCATION 'PATl* TO 'PTGEN0' (STARTING ADDRESS 
OF PTGEN0) 

CHANGE LOCATION 'PAT?* TO 'PTGEN0' (STARTING ADDRESS 
OF PTGEN0) 

CHANGE LOCATION 'PAT3' TO •PTGEN0' (STARTING ADDRESS 
OF PTGEN0) 

FILL LOCATIONS •PTRN01' AND 'PTRN02' WITH THE 
PATTERN YOU WANT, 

TO WRITE 2 DIFFERENT PATTERNS (IN ALTERNATING 
SECTORS) I 

CHANGE 'PATl', •PAT2' AND 'PATS* AS DESCRIBED ABOVE. 
FILL 'PATRN01' AND 'PATRN02' WITH THE TWO PATTERNS 
YOU WANT. 

7.1.6 IN TEST 10, IF YOU WANT TO WRITE AND CHECK CYLINDERS 
127 AND 128 WITH PATTERNS OTHER THAN THE 12 USED, 
CHANGE ANY OR ALL OF THE 12 POINTERS 'SPl' THROUGH 
'SP12' TO CONTAIN PATTERNS YOU WANT, 



8,0 SEEK TIMER & GRAPHS 

THE LAST TEST IN THIS PROGRAM IS THE SEEK TIMER, IN 
ORDER TO TIME THE SEEKS, THE SECTOR COUNTER HAS BEEN 
USED AS A TIME BASE, THUS THE ACCURACY OF THE TIMES 
RECORDED IS AS GOOD AS THE ACCURACY OF THE SECTOR 
COUNTER (WHICH IN TURN DEPENDS ON THE ROTATION SPEED 
OF THE DISK). 

IN THE FIRST PART OF THIS TIMER, SOME CRITICAL SEEKS 
HAVE BEEN TIMED (CYLINDERS 0-1, 179-181, 0-3, 0-16, 
0-32, 0-202, 0*100) EACH SEEK IS DONE 100 TIMES, 
TIMES ARE RECORDED, THEN THE TIMES ARE SORTED OUT 
AND A PRINTOUT IS GIVEN SHOWING HOW MANY TIMES A 
PARTICULAR SEEK TIME WAS OBTAINED, EXAMPLE! SEEK 
BETWEEN AND LAST CYLINDER WAS DONE 100 TIMES, 99 
TIMES A SEEK TIME OF 95 MS WAS OBTAINED, ONCE IT 
GAVE 100 MS. THIS GIVES THE USER AN IDEA OF HOW 
CONSISTENT ARE THE SEEK TIMES, 



IF YOU WANT TO TIME SEEK BETWEEN ANY OTHER SET OF 



8&Q 0010 



CYLINDERS! YOU CAN DO BY FOLLOWING THE INSTRUCTIONS 
AT LOCATION 'SOAD' IN LISTINGS, SEE SEC 7,1 

IN THE SECOND PART, A GRAPH OF THE 'CYLINDER SEEKED 
FROM 0' IS PLOTTED AGAINST 'SEEK TIME'. TWO GRAPHS 
ARE AVAILABLE, NORMALLY THE SMALL GRAPH IS PRINTED 
OUT, THE SMALL GRAPH PLOTS THE SEEK TIMES FOR 
SELECTED CYLINDERS (ABOUT 49) COVERING THE RANGE 
FROM CYLINDER TO 20J, IT GIVES THE USER A QUICK 
SEEK CHARACTERISTICS OF A DRIVE, 

THE OPTIONAL COMPLETE GRAPH (SW 4) GIVES A GRAPH 
SIMILAR TO THE ABOVE ONE# BUT PLOTS ALL THE 
CYLINDERS (203), 

THE GRAPH SHOWN ON LAST PAGE IS A SAMPLE OUTPUT, IT 
SHOULD BE REALIZED THAT DIFFERENT DRIVES MAY HAVE A 
SLIGHTLY DIFFERENT CHARACTERISTIC, 



FUNCTION SELECTION PROGRAM 

THIS PROGRAM GIVES THE USER A CAPABILITY TO SELECT A 
FUNCTION AND EXECUTE IT, FROM THE CONSOLE TELETYPE, 

STARTING ADDRESS«210 

ON STARTING THE PROGRAM AT 210, THE FOLLOWING 
QUESTION APPEARS! 

FUNCTION? 



THE REPLY SHOULD BEl 



ALL COMMANDS SHOULD 
RETURN, DEPENDING 



WR FOR WRITE 

WC FOR WRITE CHECK 

RD FOR READ 

RC FOR READ CHECK 

CR FOR CONTROL RESET 

DR FOR DRIVE RESET 

SK FOR SEEK DR 

BE TERMINATED BY A CARRIAGE 
ON WHICH FUNCTION IS GIVEN THE 



FOLLOWING QUESTIONS APPEARl 

RKBA7 TYPE IN THE BUS ADDRESS (OCTAL) 

FOLLOWED BY A C,R, 

RKDA? TYPE IN THE DISK ADORES (OCTAL) 

FOLLOWED BY C,R. 

IF A NON-EXISTENT CYLINDER OR SECTOR IS SELECTED, 
THE QUESTION IS REPEATED AGAIN, 

fWORDS? TYPE IN THE NUMBER OF WORDS YOU WANT 

TO TRANSFER, IT SHOULD BE IN OCTAL, THyS IF YOU 
WANT TO READ A SECTOR TYPE IN 400 FOL^OWED BY C.R, 
ANY NUMBER OF WORDS CAN BE TRANSFERRED DEPENDING ON 
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THE BUFFER SIZE AVAILABLE, 



FOR A WRITE FUNCTIONt IF SW0 IS SET TO 1 THE PROGRAM 
WILL ASK FOR THE DATA PATTERN TO BE WRITTEN: 

PATRN? THE USER SHOULD TYPE IN THE DATA 

PATTERN (OCTAL) TO BE WRITTEN , FOLLOWED BY <CR>, THE 
PATTERN WILL BE WRITTEN ON THE DISK, NOTE THE NUMBER 
OF WORDS TO BE WRITTEN AND THE DISK ADDRESS SHOULD 
BE SPECIFIED, 

FOR A WRITE CHECK FUNCTIONI IF SW IS SET TO I, THE 
USER IS ASKED FOR THE PATTERN TO BE WRITE CHECKEDI 
PATRN? THE USER SHOULD TYPE IN THE (OCTAL) PATTERN, 

FOR A SEEK FUNCTIONI CYLl? CYL2? IN REPLY TO THESE, 
TYPE IN THE CYLINDER NUMBERS (OCTAL) BETWEEN WHICH 
THE SEEK IS TO BE DONE, IF A NON EXISTENT CYLINDER 
IS TYPED IN THE QUESTION IS REPEATED AGAIN, 



THE FUNCTION IS EXECUTED AGAIN AND AGAIN, TO GET 
OUT OF THIS LOOP SW 3 SHOULD BE SET, AT THIS POINT 
THE QUESTION (FUNCTION?) IS ASKED AGAIN, 

IF UPON EXECUTION OF A FUNCTION AN ERROR OCCURS IT 
IS REPORTED, ALL SWITCH OPTIONS WHICH APPLY TO ANY 
OTHER ERROR, ALSO APPLY TO THIS ERROR, 

IF ON INPUTTING A NUMBER OR COMMAND A MISTAKE IS 
MADE, THE INPUT STRING CAN BE DELETED BY HITTING 
•RUBOUT' KEY, THE NEW STRING CAN BE TYPED IN AGAIN, 



10,0 ERROR INFORMATION 

WHENEVER AN ERROR MESSAGE IS PRINTED OUT, ALL 
REGISTERS AND OTHER DATA PERTAININNG TO THE ERROR 
ARE ALSO GIVEN. RKDS, RKER.,.PK8A INDICATE THE 
CONTENTS OF THE CORRESPONDING REGISTERS AT THE TIME 
OF ERROR, 

EVERY ERROR MESSAGE CONTAINS A PC, THIS PC 
INDICATES THE POSITION IN PROGRAM WHERE THE ERROR 
CALL IS LOCATED. THE ERROR MESSAGE, BECAUSE OF 
PRACTICAL CONSIDERATIONS IS MADE SHORT AND 
MEANINGFUL, THE USER IS ADVISED TO LOOK UP THE PC 
IN THE PROGRAM LISTING, WHERE HE WILL FIND MORE 
INFORMATION ABOUT THE ERROR. IN MANY INSTANCES, A 
SINGLE FAULT WILL GIVE RISE TO MORE THAN ONE ERROR 
REPORT, A LITTLE DELIBERATION AND CAREFUL 
EXAMINATION OF THE DATA GIVEN WILL BE CERTAINLY VERY 
HELPFUL, A BRIEF EXPLANATION OF WHAT IS BEING 
CHECKED IN THE SUBTEST IS GIVEN AT THE BEGINNING OF 
EVERY SUBTEST, ALL THE NUMBERS GIVEN WITH ERROR 
MESSAGES ARE IN OCTAL, 

AT TIMES WHEN AN ERROR OCCURS BESIDES THE ERROR 
PRINTOUT MORE PRINTOUTS OCCUR, THEY ARE GIVEN TO 
HELP THE USER UNDERSTAND THE PROBLEM, 
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11,0 UNEXPECTED TIMEOUTS AND RKll INTEPRUPTS 



WHEN AN UNEXPECTED TIMEOUT OCCURS* THE PC AT WHICH 
TIME OUT OCCURRED IS TYPED OUT AND THE PROGRAM 
HALTS, IF IT IS INTACT, IT CAN BE RESTARTED BY 
PRESSING CONTINUE, 

IF AN UNEXPECTED RKll INTERRUPT OCCURS THE PROGRAM 
TYPES OUT THE PC AT WHICH THE INTERRUPT CAME IN AND 
THEN HALTS, PRESSING CONTINUE WOULD RESTART THE 
PROGRAM FROM BEGINNING, 



12,0 COMMONLY USED SUBROUTINES 

A BRIEF EXPLAINATION OF EVERY SUBROUTINE IS GIVEN IN 
THE LISTINGS (JUST BEFORE THE CODE FOR THAT 
SUBROUTINE), ALL SUB-ROUTINES ARE LISTED IN THE 
•TABLE OF CONTENTS' FOUND AT THE BEGINNING OF 
LISTINGS. THESE ARE TWO WAYS IN WHICH ROUTINES APE 
CALLED, 1, JSR PC#ROUTINE 2, THROUGH AN ENCODED 
TRAP INSTRUCTION, THE LOWER BYTE OF THE 'TRAP* 
INSTRUCTION IS USED TO INDEX THROUGH THE TRAP TABLE 
(ITRPAD) FOR THE STARTING ADDRESS OF THE DESIRED 
ROUTINE, 



13,0 SAMPLE GRAPH AND SEEK TIMER OUTPUTS 



•f OF SEEKS' INDICATES THE NUMBER OF TIMES A PARTICULAR 
•SEEK TIME' WAS OBTAINED. NOTE THAT TIMES ARE RECORDED FOR 
BOTH FORWARD AND REVERSE SEEKS, BETWEEN A SET OF CYLINDERS, 

SEEK TIME SCALE FACTOR«0.01 MILI SECS 



I OF 
SEEKS 



SEEK 
TIME 



» OF 
SEEKS 



SEEK 
TIME 



CYLS:0-202 
FRWRD 

100 



9075 



REVRSE 
100 



9075 



CYLSI0-1 
FRWRD 

100 



825 



REVRSE 
100 



1155 



CYLSJ179-181 
FRWRD 

100 



1155 



REVRSE 
100 



1155 



CYLSI0-3 
FRWRD 

100 



1485 



REVRSE 
100 



1485 
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CyLSt0-16 
FRWRD 

100 

CYLSI0-32 
FRWRD 

100 

CYLSt0-100 
FRWRD 

100 



3U5 



3795 



5775 



REVRSE 
100 

REVRSE 
100 

REVRSE 
100 



SEQ 0014 



3135 



3795 



5775 



X AXIS - SEEK TIME - MiLl SECS 
y AXIS • CYLINDER SEEKED FROM 



#»SAMPLE OUTPUT** 



10 
•I — 



20 
•I-' 



30 



40 



50 



60 
•T-« 



70 
•I- 



60 90 



100 
•I — 



110 120 



130 

'I 



0- X 






1- 


X 




2* 


X 




3- 


X 




4- 


X 




6- 


X 




8- 




X 


10- 




X 


12- 




X 


14- 




X 


16- 




X 


18- 




X 


20- 






25- 






30- 






35- 






40- 






45- 






50- 






55- 






60- 






65- 






70- 






75- 






80- 






85- 






90- 






95- 






100- 






105- 






110- 






115- 






120- 






125- 






130- 






135- 






140- 






145- 






150- 






155- 







160- X 

165- X SEQ 0015 

170- X 

175- X 

180- X 

185- X 

190- X 

195- X 

200- X 

202- X 
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18 OPERATIONAL SWITCH SETTINGS 

45 BASIC DEFINITIONS 

156 TRAP CATCHER 

165 STARTING ADDRESS(ES) 

171 ACTll HOOKS 

182 COMMON TAGS 

491 ERROR POINTER TABLE 

713 INITIALIZE THE COMMON TAGS 

750 TYPE PROGRAM NAME 

755 GET VALUE FOR SOFTWARE SWITCH REGISTER 

967 Tl CHECK INNER LIMIT SWITCH & ELECTROMECHANICAL INTEGRITY 

1093 T2 FORMAT THE DISK 

1186 T3 READ FORMAT OF THE DISK 

1372 T4 SEEK PATTERNSI 0-31 2-0-3 1 1- USING IMPLIED SEEK 

1668 T5 PERFORM CONVERGING-DIVERGING (IMPLIED) SEEKS 

1847 T6 WRITE PATTERNS ON THE DISK 

2179 T7 READ, SOFTWARE COMPARE, WRITE CHECK OF THE PATTERNS 

2569 T10 WRITE, WRITE CHECK ON CYLINDERS 127, 128 

2724 TU SEEK FUNCTION TIMER 

3250 T12 END OF PROGRAM 

3262 END OF PASS ROUTINE 

3305 ESR15 

3351 ESR13 

3382 ESR20 

3412 ESR25 

3604 ERR2 

3622 ERRl 

3642 GCYL 

3660 DRV, RESET - DRIVE RESET ROUTINE 

3661 RESDON - WAIT FOR DRIVE RESET TO BE DONE 

3695 CON. RESET - CONTROL RESET ROUTINE 

3696 CON.RDY • WAIT FOR CONTROL READY 
3751 TST.RWS - WAIT FOR R/W/S RDY 
3773 TEST ABORT ROUTINE 

3784 SCOPE HANDLER ROUTINE 

3814 ERROR HANDLER ROUTINE 

3990 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

4058 TYPE ROUTINE 

4130 INTEGER MULTIPLY ROUTINE 

4178 TTY INPUT ROUTINE 

4417 READ AN OCTAL NUMBER FROM THE TTY 

4456 BINARY TO OCTAL (ASCII) AND TYPE 

4535 TYPDSS - TYPE DECIMAL, LEADING ZEROES SUPPRESSED 

4557 TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 

4581 SAVE AND RESTORE R0-R5 ROUTINES 

4627 DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 

4692 TRAP DECODER 

4715 TRAP TABLE 

4755 POWER DOWN AND UP ROUTINES 

4802 FUNCTION SELECTION PROGRAM 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
13 
19 
20 
21 
22 
23 
z4 
25 
26 
27 
29 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 



.TITLE HAINDEC-ll-DZRICL-D 
;»COPyBIGHT CCl 1974,1976 
!»DI61T&D EQUIPMENT CORP, 
;*MAyNARD, MASS, 01754 
;« 

;«PROGRAM BY JIM KAPADIA 
•• 

;*THI8 PROGRAM WAS ASSEMBIiED USING THE PDP-11 MAINDEC SY8MAC 
;*PACKAGE CMAIHDEC-11-D2QAC-C2)» SEPT 14, 1976, 

>«JAMUARy 1975 



•REVISED MARCH 1976 BY TOM SAWYER 
•REVISED BY CHUCK HESS, AUGUST, 1976 



.SBTTL OPERATIONAL SWITCH SETTINGS 



• 
• 


SWITCH 


USE 


• 
• 


15 


HALT ON ERROR 


• 


14 


LOOP ON TEST 


• 


13 


INHIBIT ERROR TYPEOUTS 




12 


CYCLE ON ERROR TO PREVIOUS 'SCOPE' 


• 


10 


BELL ON ERROR 


• 


9 


LOOP ON ERROR 


• 


8 


SELECT TEST TYPED IN BY USER 


• 


6 


EXECUTE THE SEEK TIMER CTEST 11) 


• 


5 


TYPE THE SEEK TIMER GRAPHS CTEST ID 


• 


4 


TYPE THE COMPLETE GRAPH (ALL SEEK TIMES) 


• 




NOTE, OTHERWISE YOU GET SMALL GRAPH 


« 


3 


TERMINATE FUNCTION SELECTED BY USER 


• 




(FOR FUNCTION SELECTION PROGRAM SAs210) 


• 


2 


DROP THE DRIVE AFTER MAXIMUM ALLOWABLE 


• 




NUMBER OF ERRORS HAVE OCCURED 


• 





ASK FOR PATTERN TO BE WRITTEN (OR WRITE 


« 




CHECKED), IN FUNCTION SELECTION PROGRAM 


• 


11 


DUMP OUT ALL RKll REGISTERS ON ERROR 



YOU ARE ADVISED TO READ THE DOCUMENT FOR THIS PROGRAM. 
FUNCTION SELECTION PROGRAM STARTS AT 210. 
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84 
85 
86 
87 
88 
99 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 



.SBTTL BASIC DEFINITIONS 

J»IHITIAL ADDRESS OF THE STACK POINTER ♦♦• 1100 ••• 
STACKS 1100 

.EQUIV EMT, ERROR nBASIC DEFINITION OF ERROR CALL 

.EOUIV lOT, SCOPE JIBASIC DEFINITION OF SCOPE CALL 

f»HISCELLANEOUS DEFINITIONS 



52 


00001 1 


HT» 


11 


nCODE FOR HORIZONTAL TAB 


53 


000012 


LF» 


12 


MCODE FOR LINE FEED 


54 


000015 


CR« 


15 


JICODE FOR CARRIAGE RETURN 


55 


000200 


CRLF» 


200 


nCODE FOR CARRIAGE RETURN-LINE FEED 


•ii 


177776 


PS» 


177776 


1 (PROCESSOR STATUS WORD 


57 




.EOUIV 


PS,PSW 




58 


177774 


STKLMT* 


177774 


mstack limit register 


59 


177772 


PIRO» 


177772 


mprograh interrupt request register 


60 


177570 


DSWR3 


177570 


nHARDWARE SWITCH REGISTER 


61 


177570 


DDISP> 


177570 


IIHARDNARE DISPLAY REGISTER 



(•GENERAL PURPOSE REGISTER DEFINITIONS 



64 


000000 


R0B 


%0 


((GENERAL REGISTER 


65 


000001 


Rl» 


%1 


((GENERAL REGISTER 


66 


000002 


R2« 


12 


((GENERAL REGISTER 


67 


000003 


R3= 


%3 


((GENERAL REGISTER 


69 


000004 


P4a 


14 


((GENERAL REGISTER 


69 


000005 


R5s 


%S 


((GENERAL REGISTER 


70 


000006 


R6s 


t6 


((GENERAL REGISTER 


71 


000007 


R7« 


%7 


((GENERAL REGISTER 


72 


000006 


SP« 


%6 


((STACK POINTER 


73 


000007 


PCs 


%7 


((PROGRAM COUNTER 



{•PRIORITY LEVEL DEFINITIONS 



76 


000000 


PR0S 





((PRIORITY 


LEVEL 





77 


000040 


PRls 


40 


((PRIORITY 


LEVEL 


1 


79 


000100 


PR2S 


100 


( (PRIORITY 


LEVEL 


2 


79 


000140 


PP3S 


140 


( (PRIORITY 


LEVEL 


3 


80 


000200 


PR4X 


200 


( (PRIORITY 


LEVEL 


4 


81 


000240 


PP5S 


240 


((PRIORITY 


LEVEL 


5 


82 


000300 


PR6« 


300 


((PRIORITY 


LEVEL 


6 


83 


000340 


PR7s 


340 


((PRIORITY 


LEVEL 


7 



(•"SW 
SWISS 
SWI4S 
SW13a 
SN12S 
SM11« 
SW10S 
SH093 
SW08a 
SH07S 
SW06a 
SH0Sa 
SH04a 
SH03a 
SN02a 



ITCH REGISTER" 
100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 



SWITCH DEFINITIONS 
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SEQ 0019 



100 


000002 


8N01S 


2 




101 


000001 


SN00« 


1 




102 




.EQUIV 


SH09, 


SH9 


103 




,EQUIV 


SH08| 


sue 


104 




.EQUIV 


SH07t 


SW7 


105 




•EQUIV 


SW06> 


SH6 


106 




.EQUIV 


SH05, 


SH5 


107 




.EQUIV 


SH04, 


SH4 


108 




.EQUIV 


SH03, 


SH3 


109 




.SOUIV 


SW02> 


SH2 


110 




.EQUIV 


SH01, 


SHI 


111 




.EQUIV 


SH00f 


SW0 


112 
113 




l*DATA.BIT DEFINITIONS (BIT00 TO BIT15) 


114 


100000 


BIT15« 


100000 


115 


040000 


BIT14* 


40000 




116 


020000 


BIT13* 


20000 




117 


010000 


BIT12» 


10000 




118 


004000 


BITlta 


4000 




119 


002000 


BIT10» 


2000 




120 


001000 


BIT09a 


1000 




121 


000400 


BIT08* 


400 




122 


000200 


B1T07* 


200 




123 


000100 


BIT06" 


100 




124 


000040 


BIT05« 


40 




125 


000020 


BIT04» 


20 




126 


000010 


BIT03" 


10 




127 


000004 


BIT02» 


4 




129 


000002 


BIT01« 


2 




129 


000001 


BIT00" 


1 




130 




.EQUIV 


BIT09 


>BIT9 


131 




.EQUIV 


BIT0e 


>BIT8 


132 




.EQUIV 


BIT07 


»BIT7 


133 




.EQUIV 


BIT06 


«BIT6 


134 




.EQUIV 


BIT05 


iBIT5 


135 




.EQUIV 


6IT04 


»BIT4 


136 




.EQUIV 


BIT03 


,B1T3 


137 




•EQUIV 


BIT02 


,BIT2 


138 




•EQUIV 


BIT01 


iBITl 


139 




.EQUIV 


BIT00 


rBIT0 


140 










141 




{•BASIC 


"CPU" 


TRAP VECTOR ADDRESSES 


142 


000004 


ERRVeC" 


4 


II TIME OUT AND OTHER ERRORS 


143 


000010 


RESVECb 


10 


1 {RESERVED AND ILLEGAL INSTRUCTIONS 


144 


000014 


TBITVEC"14 


n"T" BIT 


145 


000014 


TRTVEC" 


14 


1 1 TRACE TRAP 


146 


000014 


BPTVEC" 


14 


IIBREAKPOINT TRAP CBPT) 


147 


000020 


lOTVEC* 


20 


1 1 INPUT/OUTPUT TRAP tlOT) ••SCOPE** 


148 


000024 


PHRVEC* 


24 


1 1 POWER FAIL 


149 


000030 


EMTVEC" 


30 


II EMULATOR TRAP (EHT) ••ERROR** 


150 


000034 


TRAPVEC«34 


If "TRAP" TRAP 


151 


000060 


TKVEC« 


60 


IlTTY KEYBOARD VECTOR 


152 


000064 


TPVEC« 


64 


1 ITTY PRINTER VECTOR 


153 


000240 


PIROVECa340 


II PROGRAM INTERRUPT REQUEST VECTOR 


154 










155 




•SBTTL 


TRAP 


CATCHER 



MAINDEC-U-DZRKL-O 



HACYll 27(10063 



DZRKLD.Pll 31 


-AUG-76 


156 






157 




(100000 


158 






159 






160 






161 




000174 


162 


000174 


000000 


163 


000176 


000000 


164 






165 


000200 


000137 


166 






167 




000210 


168 


000210 


105237 


169 


000214 


000137 


170 






171 






172 






173 






174 




000230 


175 




000046 


176 


000046 


015254 


177 




000053 


178 


000052 


000000 


179 




000230 


180 







04-OCT-76 14126 
TRAP CATCHER 



S^ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A "•+2, HALT" 
{•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
I^LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 
• •174 

DISPREGI .WORD {{SOFTWARE DISPLAY REGISTER 

SHREGl .WORD IISOFTHARE SNITCH REGISTER 

.SBTTL STARTING ADDRESSCES) 

JMP 8*START {(JUMP TO STARTING ADDRESS OF PROGRAM 



.■210 

INCB FFUNC 

JMP »*START 

.SBTTL ACTll HOOKS 



ISET FLAG INDICATING SELECTION OF 
{FUNCTION PROGRAM. 



{ {••••*»••••••••*»*•••••••••••••••••••••*••••••••*•••••••••*«•••• 

{HOOKS REQUIRED BY ACTll 

$SVPCa. {SAVE PC 

.•46 

lENDAD {{DSET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

.■52 

.WORD {{2)SET L0C.S2 TO ZERO 

•■ISVPC {I RESTORE PC 
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181 
162 
183 
184 
185 
186 



.SBTTL COMMON TAGS 

( t *••••*•*•••*•••••«••*••••*•************•************'*****'****'** 

J»THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 



187 




tUCt 1 1 CIA 




.■1 100 






186 


nail aOi 




n 1 Au * 






:| START OF COMMON TAGS 




001 100 


000000 


tPASSi 


.HORD 





: (CONTAINS PASS COUNT 


1 QB 


01011 1 £19 


000 


STSTNHI 


• BYTE 





1 CONTAINS THE TEST NUMBER 


191 


aa 1 1 CI > 

1010 IIVA 


000 


SERFLGS 


«BYTE 





i (CONTAINS ERROR FLAG 


192 


001 104 


000000 


t ICNTJ 


.WORD 





: (CONTAINS SUBTEST ITERATION COUNT 






000000 


$LPADRX 


. WORD 





! (CONTAINS SCOPE LOOP ADDRESS 








SLPERRS 


HQRQ 





: (CONTAINS SCOPE RETURN FOR ERRORS 


195 


001 1 12 


000000 


8ERTTLI 


.WORD 





: (CONTAINS TOTAL ERRORS DETECTED 


196 






t ITEMB S 


.BYTE 





: (CONTAINS ITEM CONTROL BYTE 


197 




001 


8ERMAX t 


BYTE 


J 


; (CONTAINS MAX. ERRORS PGR TEST 


loo 


<0iO 1 1 1 o 


000000 




.WORD 





1 (CONTAINS PC OF LAST ERROR INSTRUCTION 




001 120 


000000 


tGDAORl 


.WORD 





1 (CONTAINS ADDRESS OF 'GOOD' DATA 


200 


00 1 1 22 


act 01 01 £1 CI 


* su nun » 


.WORD 





1 (CONTAINS ADDRESS OF 'BAD' DATA 


201 


001 124 


000000 


tGDDATi 


.WORD 





1 (CONTAINS 'GOOD' DATA 




001 126 


000000 


SBDOATS 


. WORD 





1 (CONTAINS 'BAD' DATA 




1010 1 1 ji0 


000000 




.WORD 





: ( R£SERVED**NOT TO BE USED 


204 


001 132 


000000 
















t AUTOBS 


.BYTE 





'(AUTOMATIC MODE INDICATOR 


OnS 


001 135 


000 


9 1 n ^ AU i 


BYTE 





'(INTERRUPT MODE INDICATOR' 


207 


001 1 36 


www 











208 


001 140 


1 77570 


5WRI 


.WORD 


DSWR 


((ADDRESS OF SWITCH REGISTER 




001 142 


177570 


ISPLAY ! 


.WORD 


DDISP 


'(ADDRESS OF DISPLAY REGISTER 


210 


001 1 44 


177560 


$TKSS 


177560 




(TTY KBD STATUS 


211 


001 1 46 


177562 


ITKBl 


177562 




:(TTY KBD BUFFER 


212 


001 150 


177564 


STPSS 


177564 




i(TTY PRINTER STATUS REG. ADDRESS 


213 


001 152 


1 77566 


tTPBl 


177566 




(TTY PRINTER BUFFER REG, ADDRESS 


214 


001 154 


000 


f NULL! 


.BYTE 





(CONTAINS NULL CHARACTER FOR FILLS 


215 


00 1 155 


002 


»FILLS> 


.BYTE 


2 


! (CONTAINS # OF FILLER CHARACTERS REQUIRED 


216 


001 156 


012 


IFILLCt 


.BYTE 


12 


KINSERT FILL CHARS. AFTER A "LINE FEED" 


217 


001 157 




tTPFLGl 


.BYTE 





:( 'TERMINAL AVAILABLE" FLAG CBIT<07>«0"¥ES 


718 


001 160 


000000 


SREGADS 


.WORD 


3 


(CONTAINS THE ADDRESS FROM 


219 












(WHICH C$REG0) WAS OBTAINED 


230 


001162 


000000 


SREG0I 


.WORD 





((CONTAINS ((«REGAO}-f0} 


221 


001164 


000000 


$REG1] 


.WORD 





((CONTAINS C((REGAD)'f2} 


222 


001166 


000000 


tREG2l 


.WORD 





((CONTAINS C(tREGAD]'t'4) 


223 


001170 


000000 


«REG3: 


.WORD 





((CONTAINS ((SREGAD>+6) 


224 


001172 


000000 


«REG4| 


.WORD 





((CONTAINS (($REGAD)'fl0} 


225 


001174 


000000 


$REG5l 


.WORD 





((CONTAINS (CSREGAD}>12) 


226 


001176 


000000 


SREG6i 


.WORD 





((CONTAINS CCSREGADJ + U) 


227 


001200 


000000 


tREG7s 


.WORD 





{(CONTAINS CCtREGAD}'»16} 


228 


001202 


000000 


8REG10I 


.WORD 





((CONTAINS CC»REGAD)+20] 


229 


001204 


000000 


$ESCAPEi0 




((ESCAPE ON ERROR ADDRESS 


230 


001206 


177607 000377 


tBELLt 


.ASCIZ 


<207><377><377> 


•(CODE FOR BELL 


231 


001212 


077 


SQUESt 


.ASCII 


/?/ 


((QUESTION MARK 


232 


001213 


015 


ICRLFI 


.ASCII 


<15> 


((CARRIAGE RETURN 


233 


001214 


000012 


$lf: 


.ASCIZ 


<12> 


((LINE FEED 



234 
235 
236 



• (••••*••»««••«*••••••«•«*»••*•«••«•••««••••••»•»••*•«•*«*•••*•»• 
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237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 



001216 
001220 



001223 
001224 



001232 
001234 
001236 
001240 
001242 
001244 
001246 
001250 



001252 
001254 
001256 



001260 
001262 
001264 



001266 
001320 
001352 



000000 
000000 



000 
000 
001226 

000000 

000000 



000000 
020000 
040000 
060000 
100000 
120000 
140000 
160000 



000000 
000000 
000000 



000000 
000000 
000000 



000015 
000015 
000015 



(IN CASE YOU WANT THE OUTPUT TO COME OUT ON LINE PRINTERi 
(ONE)> MAKE THE FOLLOWING CHANGES ABOVE! 

(CHANGE CONTENTS OF 'STPS' TO 177514 (LPT VECTOR) 
(CHANGE CONTENTS OF 'STPB' TO 177516 ( " ") 



(IF YOU HAVE 



(TAGS AND GENERAL DATA AREA 



FFUNCt .WORD 
XXDPMOl .WORD 



LUPSW: .BYTE 

DRVDONJ .BYTE 
DRIVSt .BYTE 
.EVEN 

DRVPTRI 

DRIVAD! 



DRIV0! 
DRIVll 
DRIV2( 
DRIV3: 
nRIV4i 
DRIV5( 
0RIV6I 
DRIV7J 



000000 
020000 
040000 
060000 
100000 
120000 
140000 
160000 



RETRYll 
RETRY2I 
RETRY3I 



INADR! 
OUTADRI 
TIHERI 



(FLAG SET, TO INDICATE ENTRY INTO FUNCTION PROGRAM 
(IF PROGRAM LOADED BY XXDP. THE 
(LOWER BYTE HAS THE DRIVE NUMBER 

(AND THE UPPER BYTE CONTAINS THE RK05 'XXDP* CODE 

(FLAG, SET TO INDICATE THAT A 

(PARTICULAR TEST WAS SELECTED BY USER (SW 8) 



(CONTAINS NUMBER OF DRIVES THAT HAVE 

(BEEN ALREADY CHECKED 

(CONTAINS TOTAL I OF DRIVES PRESENT 



(CONTAINS POINTER TO INDICATOR STARTING 
(WHICH CHECKING SHOULD BE DONE FOR NEXT 
(AVAILABLE DRIVE 

(CONTAINS THE ADDRESS OF THE DRIVE 
(BEING TESTED 

(THESE ARE FLAGS TO INDICATE 
(THAT A PARTICULAR DRIVE IS 
(PRESENT. BIT IS SET TO 
(INDICATE THAT. BITS 13, 14, 15 
(CONTAIN THE LOGICAL DRIVE 
(ADDRESS 



BUFR! .BLKN 13, 
BUFRll .BLKW 13, 
BUFR2i .BLKW 13, 



(GENERAL REGISTERS 



(CONTAINS INNER ADDRESS 
(CONTAINS OUTER ADDRESS 



(GENERAL BUFFERS 
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SGQ e033 



293 
294 
29S 
296 
297 
296 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
3t6 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
329 
329 
330 
331 
332 
333 
334 
335 
336 
337 
339 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 



(IN CASCi YOU WANT TO USE BUFFERS STARTING AT SOME OTHER MEMORY 
> ADDRESS YOU CAN DO SO BY CHANCING THE FOLLOWING POINTERS, 
(BOTH THE BUFFERS SHOULD BE 768 (DECIMAL) WORDS LONG. 



001404 026362 
001406 031362 



001410 000000 
001412 000000 



001414 010032 

001416 010114 

001420 010216 

001422 010260 

001424 000000 



001426 
001430 
001432 
001434 
001436 000000 



001440 

001442 000000 

001444 000000 

001446 000000 

001450 000000 



001452 177400 

001454 177402 

001456 177404 

001460 177406 

001462 177410 



PBUF0t IOBUF0 
PBUFll lOBUFl 



BUFLG0I .WORD 
BUFLSlI .WORD 



PAT0I PTGEH0 

PATH PTGENl 

PAT2I PTGEN2 

PAT3I PTGEN3 

PRSPATI .WORD 

NXTPAT: .WORD 

PGSUBRI .WORD 

D8KA0RI .WORD 

BUSADRI .WORD 

NRDCNTI .WORD 

NDSKADI .WORD 

WBUSADI .WORD 

WNRDCNt .WORD 

BUFNOI .WORD 

ADRESI .WORD 







IPOINTER TO THE STARTING ADDRESS OF THE 
(BUFFER USED TO READ INTO FROM DIBK. 
IPOINTER TO STARTING ADDRESS OF BUFFER 
tIN NHICIi PATTERNS ARE GENERATED. (WRITING 
lis DONE FROM THIS BUFFER) 
(FLAG FOR 'IOBUF0' 
IFLAG FOR 'lOBUFl' 



lADRES OF 'PATRN GENERATOR 0' 
(ROUTINE 

lADRES OF 'PATRN GENERATOR 1' 

lADRES OF 'PATRN GENRATOR 2' 

lADRES OF 'PATRN GENRATOR 3' 

(CONTAINS THE POINTER TO THE 
(ADRE8 OF 1 OF THE 3 'PATRN 
(GENRATOR* ROUTINES 
(SAME AS ABOVE 



(CONTAINS DISK ADRES (DA) 
(CONTAINS BUS ADRES (BA) 
(CONTAINS WORD COUNT 
(CONTAINS DISK ADRES 
(CONTAINS BUS ADRES 
(CONTAINS WORD COUNT 
(CONTAINS STARTING ADRES 
(OF A BUFFER 



(RKll REGISTERS 

(IF FOR ANY REASON THE REGISTER ADDRESSES ARE DIFFERENT FROM 
(THESE (BELOW). THE CONTENTS OF THE APPROPRIATE POINTERS SHOULD 
iBE MODIFIED SO THAT THE CORRECT REGISTER ADDRESS IS USED. 



RKDSI 177400 

RKERI 177402 

RKCSt 177404 

RKWCI 177406 

RKBAt 177410 
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-AUG-76 15 J 35 


COMMON TAGS 








349 


001464 


177412 


RKDAI 


177412 








350 


001466 


177416 


RKDBI 


177416 








351 
















352 


001470 


000200 


RKPRII 


200 






(CONTAINS THE CPU LEVEL (4) AT WHICH 


353 














iRKli NORMALLY INTERRUPTS. THIS WORD 


354 














(SHOULD BE CHANGED IF RKll IS DESIGNATED 


355 














(A BR LEVEL OTHER THAN S.EXPi IF IT 


356 














(IS CHANGED TO 6, THE CPU LEVEL WOULD 


357 














(BE 1 LESS (5) t HENCE THIS WORD 


358 














(SHOULD BE 240 (BIT POSITIONS ARE 


359 














(IDENTICAL TO THE PRIORITY BITS IN PSU) 


360 


001472 


000220 


RKVECl 


220 






(CONTAINS THE NORMAL VECTOR ADDRESS 


361 














ITO WHICH THE RKll INTERRUPTS. IF THE 


362 














IVECTOR ADDRESS HAS BEEN CHANGEDf MODIFY 


363 














ITHIS WORD. 


364 
















365 
















366 
















367 
















368 


001474 


000000 


IHDXll 









ICENERAL INDEX REGISTERS 


369 


001476 


000000 


INDX2I 











370 


001500 


000000 


INDX3I 











371 


001502 


000000 


INDX4t 











372 
















373 


001504 


000000 


ERCNTll 









(GENERAL REGISTERS 


374 


001506 


000000 


ERCNT2i 









1 GENERAL REGISTERS 


375 


001510 


000000 


ERCHT3I 









(GENERAL REGISTERS 


376 


001512 


000000 


ERCNT4I 











377 


001514 


000000 


ERCNTSi 











378 


001516 


000000 


ERCNT6I 











379 


001520 


000000 


ERCMT7I 











380 
381 


001522 


000000 


ERCHTSI 











382 
















383 






(•THE FOLLOWING 


TABLE CONTAINS THE CYLINDERS BETWEEN WHICH THE SEEKS WILL 


384 






1 •TIMED. 


, THEY HAVE 


BEEN 


SELECTED TO GIVE SOME TYPICAL SEEKS TIMES FOR THE 


385 






1*3 SEEK SPEEDS. 


IF 


FOR 


ANY REASON YOU WANT TO TINE SEEKS BETWEEN ANY 


386 






(•OTHER 


SET OF CYLINDERS 


HAKE CHANGES IN THE CORRESPONDING SEEK CYLINDER 


387 






(•ADDRESSES. 








388 
















389 






(•OUTER 


CYLINDER 


ADDRESI 


■„ FROM WHERE SEEK HILL BE DONE 


390 


001524 


000000 


80ADI 









(CYLINDER 


391 


001526 


000000 











( • 


392 


001530 


013140 




13140 






( • 179 


393 


001532 


000000 











( « 


394 


001534 


000000 











1 • 


395 


001536 


000000 











I • 


396 


001540 


000000 











( • 


397 
















398 






(•INNER 


ADDRESS* 


TO 


WHICH SEEK HILL BE DONE 


399 


001S42 


014500 


SIADI 


14500 






ICYLINDDCR 202. LAST 


400 


001544 


000040 




40 






1 " I 


481 


001546 


013240 




13240 






( ' 181 


402 


001550 


000140 




140 






( " 3 


403 


001552 


001000 




1000 






( " 16 


404 


001554 


002000 




2000 






1 • 32 
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SEQ 002! 



405 


001556 


006200 








6200 


1 " 100 


406 
















407 
















408 
















409 










JFOLLOWING POINTERS ARE USED TO TRANSFER CONROL TO THE 


410 










JTEST 


SELECTED 


BY USING SH 8. IP ANY MORE TESTS ARE 


411 










} ADDED 


TO THIS 


PROGRAM ADDITIONAL POINTERS SHOULD BE INSERTED. 


412 


001560 


004206 






PTl t 


TSTl+2 




413 


001562 


004SS2 






PT2J 


TST2+2 




414 


001564 


005050 






PT3I 


TST3+2 




415 


001566 


005540 






PT4I 


TST4+2 




416 


001570 


006546 






PT5I 


TST5+2 




417 


001572 


007304 






PT6: 


TST6+2 




418 


001574 


010364 






PT7t 


TST7+2 




4t9 


001576 


012122 






PT10: 


TST10+2 






00 1 600 


012664 






PTll: 


TSTll+2 




421 
















422 
















423 










{MESSAGES i ASCII STRINGS 


424 


001602 


005015 


044523 


000116 


MSGl S 


.ASCIZ 


<15><12>/SIN/ 


425 
















426 


001610 


005015 


045523 


000105 


MSG2I 


.ASCIZ 


<15><12>/SKE/ 


427 


















001616 


00SS1S 


042524 


052123 






<15X12>'TES* i ASOPTED!/ 


429 


001624 


021440 


040440 


047502 








430 


001632 


052122 


042105 


000072 








431 
432 


001640 


005015 


051120 


043517 


MSG4t 


.ASCIZ 


<15><12>/PR0G ABORTED/ 


433 


001646 


040440 


047502 


052122 








434 


001654 


042105 


000 










435 
















436 


001657 


015 


051012 


040505 


MSGS* 


.ASCIZ 


<15><12>/READ MORS OK FROM CXLB ABOVE/ 


437 


001664 


020104 


042110 


051522 








438 


001672 


047440 


020113 


051106 








439 


001700 


046517 


041440 


046131 








440 


001706 


020102 


041101 


053117 








441 


0017J 4 


000105 












442 
















443 


001716 


054105 


041520 


042124 


MSS6 3 


.ASCIZ 


/EXPCTD HDR» / 


444 


001724 


044040 


051104 


020075 








445 


001732 


000 












446 
















447 


001733 


040 


050040 


036503 


MSG7: 


.ASCIZ 


/ PC» / 


448 


001740 


000040 












449 
















450 


001742 


005015 


047103 


051124 


MSG10I 


.ASCIZ 


<15><12>/CNTRL RDY DIDN'T SET/ 


451 


001750 


020114 


042122 


020131 








452 


001756 


044504 


047104 


052047 








453 


001764 


051440 


052105 


000 








454 
















455 


001771 


123 


041505 


051124 


HSGll : 


.ASCIZ 


/5ECTR EXPC P-HOR RECV P-HDR/ 


456 


001776 


020040 


054105 


041520 








457 


002004 


050040 


044055 


051104 








458 


002012 


020040 


042522 


053103 








459 


002020 


050040 


044055 


051104 








460 


002026 


000 
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DZRKLD.PU 31 


-AUG-76 


15135 




COMMON ' 


TAGS 






461 


















462 


002027 


015 


051012 


053457 


MSGiat 


.ASCIZ 


<15><12>"R/W/S 


463 


002^34 


051457 


051040 


054504 










464 


002042 


047040 


052117 


051440 










465 


002050 


052105 


000 












466 


















467 


002053 


040 


052040 


054522 


MSGl 3s 


.ASCIZ 


/ 


TRY »«/ 


468 


002060 


021440 


000072 












469 


















470 


















471 


002064 


005015 


051104 


053111 


HSG14t 


.ASCIZ 


<15><12>/DR1VE 


472 


002372 


020105 


000 












473 


















474 


002075 


040 


020040 




BLNK13S 


.ASCII 


/ 


/ 


475 


002100 


040 






BLNK10: 


.ASCII 


/ 


/ 


476 


002101 


040 






BLNKS9i 


.ASCII 


/ 


/ 


477 


002102 


040 






BLNKS8: 


.ASCII 


/ 


/ 


478 


002103 


040 






BLNKS7: 


.ASCII 


/ 


/ 


479 


002104 


040 






BLNKS6S 


.ASCII 


/ 


/ 


480 


002105 


040 






BLNKS5I 


.ASCII 


/ 


/ 


481 


002106 


040 






BLNKS4: 


.ASCII 


/ 


/ 


482 


002107 


040 






BLNKS3: 


.ASCII 


/ 


/ 


483 


002110 


040 






BLNKS2: 


.ASCII 


/ 


/ 


484 


002111 


040 


000 




BLNKSl ( 


.ASCIZ 


/ 


/ 


485 


















486 




002114 








.EVEN 






487 


002114 


000000 






FDBIVEJ 









488 


002116 


000000 






FDRVEl: 









489 


002120 


000000 






DBHOLDI 
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SGQ 0027 



490 
491 
492 
493 
494 
49S 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
513 
513 
514 
515 
516 
517 
518 
519 
530 
521 
533 
523 
524 
525 
536 
537 
538 
529 
530 
531 
512 
533 
534 
535 
536 
537 
539 
539 
540 
541 
543 
543 
544 
545 



003132 



002122 
002124 
002126 
002130 



002132 
003134 
003136 
002140 



002142 
002144 
002146 
002150 



003153 
002154 
002156 
003160 



002162 
003164 
003166 
003170 



034350 
025414 
026250 
000000 



024307 
025414 

026250 



024323 
035414 
026250 
000000 



024337 
025414 
026350 



034355 
035414 
026250 



.SBTTL ERROR POINTER TABLE 

l*THI8 TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

)«THe INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

|*LOCATION fITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

l«NbTEll IF IITEHB IS THE ONLY PERTINENT DATA IS CIERRPC}. 

>«N0TE2I EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS! 



EM 
DH 



M POINTS TO THE ERROR MESSAGE 

IIPOINTS TO THE DATA HEADER 

It POINTS TO THE DATA 

MPOINTS to the DATA FORMAT 



I ITEM 



rITEM 



ERROR ITEMS TABLE 



EMI 
DHl 
DTI 




EH2 
DHl 
DTI 



EH3 
DHl 
DTI 




EM4 

DHl 
DTI 



EMS 
DHl 
DTI 





ICNTRL RDY DIDN'T SET AFTER SEEK 
(PC RKC8 RKER RKDS RKDA 

flERRPC' tRES0 tREGl IREG3 IREG3 



>SIN ON SEEK 
tPC RKC3 
KERRPC IREG0 



PDRE ON SEEK 
IPC RKCS 
ftERRPC tREG0 



RKER 
tREGl 



RKER 
IREGl 



I 'ERR' ON SEEK 

J PC RKCS RKER 

ItERRPC tREG0 tREGl 



RKDS 
tREG3 



RKDS 
tREG3 



RKDS 
tREG3 



RKDA 
(REG3 



RKDA 
tREG3 



RKDA 
tREG3 



I'DRU' ON SEEKJ PUT DRIVE ON 'LOAD' BACK TO 'RUN' 
>PC RKCS RKER RKDS RKDA 

IIERRPC tREG0 tREGl tREG2 tREG3 
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546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 



003173 
003174 
002176 
002200 



002303 
002204 
002206 
003210 



002313 
003314 
003216 
003320 



002223 
003334 



003326 
002230 



002232 
002234 
002236 
002240 



002243 
002244 
002346 
002250 



002252 
002254 
002356 
003260 



003363 
002364 
003266 



034434 
035414 
036350 
000000 



034461 
035513 
036264 



024500 
035513 
036364 



034531 
035567 



034547 
035512 
036264 
000000 



034571 
035664 



034630 
03S703 
036364 
000000 



034673 
035664 
000000 



rITEM 



EM6 
DHl 
DTI 



EM7 
DH7 
DT7 



;ITEM 10 



EM10 

DH7 

DT7 



EMU 
DHll 

DTll 



13 

EM13 
DH7 
DT7 




I ITEM 13 



EH13 
DHll 


ESR13 



EMU 
DHl 4 
Dt7 




tITEM 15 



IR/H/S RDY NOT SET AFTER SEEK 
IPC RKCS RKER RKDS 

ItERRPC tREG0 tREGl tREa2 



ISIN ON HRITE FMT 
IPC RKCS RKER 

ItERRPC tREG0 tREGl 



RKDS 
tREG3 



RKDA 
tREG3 



RKDA 
tREG3 



RKDA 
tREG3 



CYLINDER 
tREG4 



CYLINDER 
tREG4 



RKDA 
tRBG3 



CYLINDER 
tREG4 



H815 

DH13 




I 'ERR' ON DOING WRITE FMT 
IPC RKCS RKER RKDS 

ItERRPC tREG0 tREGl tREG3 



ISIN ON READ FMT 

IPC RKCS RKER RKDS 

IDRVI CYL SUR SEC 

ItERRPC tRE60 tREGl tREG2 

ltREG4 tREGS tREG6 tREG7 



I 'ERR* ON READ FMT 

IPC RKCS RKER RKDS 

ItERRPC tREG0 tREGl REG2 



I WRONG HEADERS FROM 'SEC * 
I SECTOR I HEADER RECVD 



I USE THIS SUBROUTINE FOR TYPING OUT ERROR DATA 



lERROR ON IMPLIED SEEK FROM CXLA TO CYLB 
IPC CYLA CYLB RKER RKDS TRYI 

ItERRPC tREG0 tREGl tREG2 IREG3 IREG4 



I READ WRONG HDRS FROM CYLB ABOV 
I SEC* HEADER RECVD 
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SEQ 0029 



602 
603 
694 
60S 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
6?3 
624 
6*^5 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 



002270 015310 



002272 
002274 
002276 
002300 



002302 
002304 
002306 
002310 



002312 
002314 
002316 
002320 



002322 
002324 
002326 
002330 



002332 
002334 
002336 
002340 



002342 
002344 



002346 
H02350 



002352 
002354 



002356 
002360 



024735 
025762 
026264 
000000 



025042 
026037 
026324 

000000 



025110 
025664 
000000 
015456 



025176 
025414 
026250 
000000 



025232 
025414 
026250 
000000 



025255 
025567 



026302 
000000 



025276 
026075 



026336 
000000 



f ITEM 



E8R15 
16 

EMi6 
DH16 
DT7 




fITEM 17 



MS17 
DH17 
DT17 



JITEM 20 



EM20 
DH13 



;ITEM 21 



EM21 
DHt 
OTl 




J ITEM 22 



EM22 

DHl 

DTl 



JITEM 23 



EM23 
DHll 



;ITEM 24 



EM24 
0H24 



DT24 




IGO TO "ESR15" FOR TYPING OUT 



IREAO HRONS, FIRST HORD FROM SECTOR Z, 'CYLB' CON IMPLIED SEEK FROM CYLA 
>PC CYW CYIiB EXPCT RECVD TRY* 

IICRRPC tREa0 SREGl IREG2 IREGS tREG4 



IREAO FIRST HORD FROM SECTOR I, 
>PC CYLB EXPCT RECVO 

MERRPC *REG0 IREGl (REG2 



'CYLB* ABOVE 



IREAD HRONG HEADER ON IMPLIED SEEK FROM 'CYLA* TO 'CYLB' 
; SECTOR * HEADER RECVD 



ESR20 rUSE THIS SUBROUTINE FOR TYPING OUT ERROR DATA 



;ER0R on doing write ON DSK 
>PC RKCS RKER RKDS 

MERRPC tREG0 tREGl $RE62 



I SIN ON DOING WRITE 
;PC RKCS RKER 

>«ERRPC tRE60 SREGl 



>HE ON DOING READ 
IPC RKCS RKER 

|DRV« CYL SUR 
>tERRPC 8REG0 tREGl 
XREG4 tREGS SREG6 



ICSE ON READ 

>PC TRYI 

^DRVt CYL 

ItERRPC $REG10 

;tREG4 IREG5 



RKCS 
SUR 
tREG0 
tREG6 



RKDS 
«REG2 



RKDS 
SEC 
tREG2 
$REG7 



RKER 
SEC 
IREGl 
tREG7 



RKDA 
«REG3 



RKDA 
IREG3 
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658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
695 
686 
687 
688 
689 
690 
691 
692 
693 
694 



002362 
002364 
002366 
002370 



002372 
002374 



002376 
002400 



002402 
002404 



002406 
002410 



002412 
002414 
002416 
002420 



025312 
026202 



025354 
025567 



026302 
000000 



025372 
026075 



026336 
000000 



025407 
025414 
026250 
000000 



{ITEM 25 



;ITEH 



EH25 
DH25 


ESR25 



;ITEM 26 



EM26 
DHll 

DTll 



27 

EM27 
DH24 



;ITEM 30 



EH30 
DHl 
DTI 




>DATA ERROR ON READ FROM DISK ADDRESS 
>WORD# EXPCT RECVD CYL SUR 



;USE THIS ROUTINE FOR ERROR REPORTING 



I HE ON MRT CHK 
J PC RKCS 
JDRVI CYL 
ItERRPC *REG0 
ltREG4 tREGS 



IHRT CHK EROR 
IPC TRYt 
IDRV» CYL 
ftERRPC tRE610 
;tREG4 tREGS 



I ERROR 

>PC RKCS 
tIERRPC tREG0 



RKER 
SUR 
tREGl 
tREGe 



RKCS 
SUR 
tREG0 
tREG6 



RKER 
tREGl 



RKDS 
SEC 
tREG2 
tREG7 



RKER 
SEC 
tREGl 
tREG7 



RKDS 
tREG2 



RKDAl 



tREG2 



RKDA 
tREG3 
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stQ eeai 



695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 



(THIS 18 THE HANDLER FOR UNEXPECTED TIME OUT, PRESSING CONTINUE WILL 
(RESTART THE PROGRAM, 



002422 


011600 






002424 


005740 






002426 


022626 






002430 


104401 


002436 




002434 


000407 






002454 








002454 


010046 






002456 


104403 






002460 


000000 






002462 


000005 






003464 


013706 


001100 




002470 


005036 






002472 


032706 


001140 




002476 


001374 






002500 


012706 


001100 




002504 


012737 


016732 


000020 


002512 


012737 


000340 


000022 


002520 


012737 


017106 


000030 


002526 


012737 


000340 


000032 


002534 


012737 


022616 


000034 


003542 


012737 


000340 


000036 


002550 


012737 


032724 


000024 


002556 


012737 


000340 


000026 


002564 


005037 


001304 




002570 


112737 


000001 


001115 


002576 


012737 


002576 


001106 


002604 


012737 


003604 


001110 


002612 


013746 


000004 




002616 


012737 


002653 


000004 


002624 


013737 


177570 


001140 


002632 


012737 


177570 


001142 


002640 


022777 


177777 


176372 


002646 


001012 






002650 


000403 






002652 


012716 


003660 




002656 


000002 






002660 


012737 


000176 


001140 


002666 


012737 


000174 


001142 


003674 


013637 


000004 




002700 


004737 


020536 





BAOTMOt MOV 
TSI 



;|65li 
64tt 



CMP 

TYPE 

BR 

•ASCIZ 

MOV 
'TYPOC 
HALT 



CSP)«R0 (SAVE PC WHERE TIME OUT OCCURED 
-(R0) 

(SP)+>CSP)t (RESTORE STACK POINTER 

,6B| ilTYPE ASCIZ STRING 

641 llGET OVER THE ASCIZ 

<15><12>/IIM0UTIPC"/ 



R0«-(SP} 



(SET UP rOR TYPING OUT PC 
(GO TYPE OUT OCTAL PC 



STARTI RESET 

.SBTTL INITIALIZE THE COMMON TAGS 
((CLEAR THE COMMON TAGS (tCMTAG) AREA 



(CLEAR THE BUS 



((FIRST LOCATION TO BE CLEARED 
((CLEAR MEMORY LOCATION 



((LOOP BACK IF NO 
((SETUP THE STACK POINTER 



MOV ttCMTAG>R6 

CLR <R6)+ 

CMP *SHR,R6 ((D0NE7 

BNE ,«6 

MOV *STACK,8P 
((INITIALIZE A FEW VECTORS 

MOV #$8C0PE,»»I0TVEC ((lOT VECTOR FOR SCOPE ROUTINE 

MOV i340,(l#IOTVEC*2 ((LEVEL 7 

MOV **ERROR>)l«CMTVEC ((EMT VECTOR FOR ERROR ROUTING 

MOV l340,0*EHTVECt'2 ((LEVEL 7 

NOV »ITRAP>»«TRAPVEC< ((TRAP VECTOR FOR TRAP CALLS 

MOV #340,0#IRAPVEC*2(LEVEL 7 

MOV flPWRON«»«PHRVEC' ((POWER FAILURE VECTOR 

MOV «340,0*PHRVECt2 ((LEVEL 7 

CLR IGSCAPE ((CLEAR THE ESCAPE ON ERROR ADDRESS 

MOVB *1>$ERHAX ((ALLOW ONE ERROR PER TEST 

MOV ».,$LPADR ((INITIALIZE THE LOOP ADDRESS FOR SCOPE 

MOV t.rlLPERR ((SETUP THE ERROR LOOP ADDRESS 

((SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 



((EQUAL TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 

64(1 MOV 

RTI 

65<( MOV 
MOV 

66*1 MOV 



"-l". SETUP FOR A 
S*ERRVEC>>(SP1 
*64t,»«ERRVEC 
*DSWR>SHR 
IDDISPf DISPLAY 
*-l,»SHR 
661 

651 

»65|,CSP] 



SOFTWARE SWITCH REGISTER. 
((SAVE ERROR VECTOR 
((SET UP ERROR VECTOR 

((SETUP FOR A HARDWARE SWICH REGISTER 
((AND A HARDWARE DISPLAY REGISTER 
((TRY TO REFERENCE HARDWARE SHR 
((BRANCH IF NO TIMEOUT TRAP OCCURRED 
((AND THE HARDWARE SWR IS NOT • •! 
((BRANCH IF NO TIMEOUT 
((SET UP FOR TRAP RETURN 

((POINT TO SOFTWARE SWR 



tSWREGrSWR 
VOISPREG, DISPLAY 

(SP)'f r0«ERRVEC ((RESTORE ERROR VECTOR 

(INITIALIZE THE TTY HANDLER 



aSR PC#«TKIMT 
.SBTTL TYPE PROGRAM NAME 

((TYPE THE NAME OF THE PROGRAM IF FIRST PASS 



MAINOEC 


-11-DZRKL-D 


MACYll 


37(1006] 


04-OCT 


-76 14(26 PAGE 16 




DZRKLD. 


Pll 31 


-AUG-76 


15135 




TYPE PROGRAM NAME 




751 


003704 


005227 


177777 






INC 


#-1 


((FIRST TIME? 


752 


002710 


001043 








BNE 


671 


((BRANCH IF NO 


753 


002712 


104401 


002750 






TYPE 


,681 


((TYPE ASCIZ STRING 


754 










.SBTTL 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


755 


002716 


005737 


000042 






TST 


8t42 


((ARE HE RUNNING UNDER XXOf/kCII 


756 


002733 


001006 








BNE 


698 


((BRANCH IF YES 


757 


002724 


023737 


001140 


000176 




CMP 


SNR,ISWREG 


((SOFTWARE SWITCH REG SELECTED? 


758 


002732 


001005 








BNE 


708 


((BRANCH IF HO 


759 


002734 


104406 








GTSHR 




((GET SOFT-SWR SETTINGS 


760 


002736 


000403 








BR 


708 




761 


003740 


113737 


000001 


001134 


69tl 


MOVB 


tl.lAUTOB 


((SET AUTO-MODE INDICATOR 


762 


002746 








7081 








763 


003746 


000434 








BR 


678 


((GET OVER THE ASCIZ 


764 










((68ti 


.ASCIZ 


<CRLF>/RK11 


DYNAMIC TEST/<15><12>/HAINDEC-11-DZRKL-D/<CRLF> 


765 


003020 








6711 








766 


003020 


105737 


001216 




STARTI 1 


TSTB 


FFUNC 


(FUNCTION PROGRAM SELECTED? 


767 


003024 


001404 








BEO 


7$ 


(NO 


768 


003026 


105037 


001216 






CLRB 


FFUNC 


(YES, CLEAR THE FLAG 


769 


003032 


000137 


023106 






JMP 


8IFUNBEG 


(00 TO 'FUNTION SELECTION PROGRAM' 


770 


003036 


012700 


001230 




7U 


MOV 


IXXOPHD,R0 


(CLEAR FLAGS FROM 


771 


003042 


105020 






581 


CLRB 


(R0J + 


{'XXDPMD' TO 'DRIVAD* 


772 


003044 


030037 


001233 






CMP 


R0,IDRIVAD+2 




773 


003050 


001374 








BNE 


58 




774 


003053 


012701 


177770 






MOV 


1-10, Rl 




775 


003056 


042720 


000003 




611 


BIG 


I3,(R0H 


(CLEAR BIT 0'S IN 'DRIVE 


776 


003062 


005201 








INC 


Rl 


(PRESENT' FLAGS. 


777 


003064 


001374 








BNE 


68 




778 
779 










(THE FOLLOWING 


CODE FINDS OUT THE PROGRAM CONTROL MODEi 


780 










(PAPER 


TAPE (MANUAL), ACT11> 


RKDP CHAIN OR DUMP 


781 
782 


003066 


122737 


000003 


000041 




CMPB 


«2,41 


(LOADED FROM AN RK0S ? 


783 


003074 


001160 








BNE 


ST3 


(BR IF NOT 


784 


003076 


013737 


000040 


001330 




MOV 


40,XXDPHD 


(GET DEVICE INDICATOR AND DRIVE ADDRESS OF 


785 
















(LOADING RK05 


786 


003104 


122737 


000010 


001330 




CHPB 


tl0iXXDPMD 


(DRIVE ADDRESS 7 OR LESS ? 


787 


003112 


101002 








BHI 


28 


(BR IF YES 


788 


003114 


105037 


001330 






CLRB 


XXDPMD 


(DRIVE ZERO LOADED THE PROGRAM 


789 


003120 


005737 


000043 




381 


1ST 


42 


(CHAIN MODE OR ACTU AUTO ACCEPT 1 


790 


003124 


001424 








BEO 


38 


(BR IF NEITHER 


791 


003126 


104401 


003134 






TYPE 


,651 


((TYPE ASCIZ STRING 


793 


003132 


000413 








BR 


648 


((GET OVER THE ASCIZ 


793 










(|658t 


.ASCIZ 


<15><13>/N0T 


TESTING DRIVE / 


794 


003162 








6411 








795 


003163 


00S046 








CLR 


-(8P) 


(CLEAR HORD ON STACK 


796 


003164 


113716 


001330 






MOVB 


XX0PND,(8P} 


(GET DRIVE ADDRESS 


797 


003170 


104403 








TYPOS 




(TYPE THE ADDRESS 


798 


003173 


001 








.BYTE 


1 


(ONLY 1 CHARACTER 


799 


003173 


000 








.BYTE 





(8DPRESS LEADING ZEROS 


800 


003174 


000530 








BR 


8T3 


(GET NUMBER OF DRIVES 


801 


003176 


005237 


177777 




381 


INC 


1-1 


(FIRST TIME THROUGH HERE 1 


802 


003303 


001115 








BNE 


8T3 


(BR IF NOT FIRST TIME 


803 


003304 


104401 


003213 






TYPE 


,671 


((TYPE ASCIZ STRING 


804 


003310 


000411 








BR 


668 


((GET OVER THE ASCIZ 


80S 










(16781 


.ASCIZ 


«15><13>/T0 


TEST DRIVE / 


806 


003234 








6681 
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SES 3033 



807 


003234 


00S046 






CLR 


-tSP) 


;CLEAR WORD ON THE STACK 


806 


003236 


113716 


001220 




HOVB 


XXOPMDi (SP) 


;GET DRIVE ADDRESS 


809 


003242 


104403 






TYPOS 




;TYPE THE DRIVE ADDRESS 


810 


003244 


001 






• BYTE 


1 


;ONLY 1 CHARACTER 


811 


003245 


000 






• BYTE 





;SUPRESS LEADING ZEROS 


812 


003246 


104401 


003254 




TYPE 


,69* 


;»TYPE ASCIZ STRING 


813 


003252 


000431 






BP 


68$ 


;;GET OVER THE ASCIZ 


814 








; }69s: 


.ASCIZ 


/ HALT PROGRAM, 


REMOVE RKOP PACK AND REPLACE IT/<15><12> 


815 


003336 






68*1 








816 


003336 


104401 


003344 




TYPE 


f 71S 


•}TYPE ASCIZ STRING 


817 


003342 


000435 






BR 


70$ 


;jGET OVER THE ASCIZ 


818 








n7i$: 


.ASCIZ 


/WITH A HORK PA 


CK# CLEAR LOCATION 40, AND RESTART PROGRAM/ 


819 


003436 






70$t 








820 
821 
















822 


003436 


012737 


002422 


000004 ST2 1 


MOV 


*BADTMO,ERRVEC 


;SET TIMEOUT VECTOR FOR 


823 














> UNEXPECTED TIME OUT 


824 
825 








;THIS 


CODE FINDS WHICH DRIVES ARE PRESENT & PRINTS OUT THE DRIVE 


826 








;DRIVE 


NUMBERS 


THAT WERE FOUND 


ON LINE, 


827 
828 


003444 


104401 


003452 




TYPE 


,6S$ 


; JTYPE ASCIZ STRING 


329 


003450 


00041 1 






BR 


64$ 


J J GET OVER THE ASCIZ 


330 








n6S$: 




<15><12>/DSIVES 


PRESENT/ 


831 


003474 






64$S 








832 


003474 


105037 


001224 




CLRB 


DRIVS 


{INITIALIZE NO, OF DRVS PRESENT 


833 


003500 


005001 






CLR 


Rl 




834 


003502 


012702 


001232 




MOV 


tDRIV0,R2 




835 


003506 


005003 






CLR 


R3 


INITIALIZE COUNT TO 


836 


003S10 


005737 


001220 


1$: 


1ST 


XXDPMO 


; LOADED FROM AN RK05 7 


837 


003514 


001 403 






BEQ 


6$ 


JBR IF NOT 


838 


003516 


120337 


001220 




CMPB 


R3,XXDPHD 


jCHECKING the LOAD DRIVE 7 


839 


003522 


001411 






BEQ 


2$ 


;BR IF YES 


840 


003524 


010177 


175734 


6St 


MOV 


R1«9RKDA 


;ADRES A DRIVE 


841 


003530 


105777 


17S716 




TSTB 


»RKDS 


;IS IT PRESENT? 


342 


003534 


100004 






BPL 


2$ 


;N0, BRANCH 


843 


003536 


105237 


001224 




INCB 


DRIVS 


; INCREMENT TOTAL # OF DRVS 


844 


003542 


052712 


000001 




BIS 


*1,CR2) 


JSET FLAG INDICATING THIS DRV PRSNT 


845 


003546 


005722 




2S: 


TST 


CR2) + 




846 


003550 


005203 






INC 


R3 


f INCREMENT COUNT 


847 


003552 


062701 


020000 




ADD 


*20000,R1 


;ADRES THE HXT DRV 


848 














;CHKD ALL 8 DRIVES? 


349 


003556 


001354 






BNE 


1$ 


;IF NOT, GO CHK IF NEXT DRV PRSNT 


850 
351 


003560 


004737 


024164 




JSR 


PC»SIZEF 


SFIND WHICH ARE FS 


852 


003564 


105737 


001224 




TSTB 


DRIVS 


;WEPE ANY DRIVES FOUND? 


853 


003570 


001010 






BNE 


3$ 


;YES> BRANCH 


854 


003572 


104401 


003600 




TYPE 


,67s 


;»TYPE ASCIZ STRING 


355 


003576 


000403 






BR 


66$ 


;!GET OVER THE ASCIZ 


356 








M67«J 


,A5CIE 


/ NONE/ 




857 


003606 






66$: 








858 


003606 


000137 


015172 




JMP 


SEOP 


;IF NONE WERE FOUND, GO 


859 














;T0 THE END OF PROGRAM 


860 


003612 


005002 




3$l 


CLR 


R2 


.■DRIVE NUMBER 


861 


003614 


012700 


001 232 




MOV 


f DRIV0,R0 


;TABLE OF AVAIL DRIVES 


862 


003620 


105710 




5$: 


TSTB 


CR0) 


JDRIVE HERE? 
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SEQ 0034 



863 


003622 


001414 






BEQ 


4$ 


J NO 


864 


003624 


104401 






TYPE 






865 


003626 


001213 






$CRLF 






866 


003630 


010246 






MOV 


R2,-(SP) 


;PUSH NO ON THE STACK 


867 


003632 


104403 






TYPOS 




jTO TYPE OCTAL NO, 


868 


003634 


001 






.BYTE 


1 


!TYPE 1 DIGIT, SUPRESS 


869 


003635 


000 






,BYTE 







370 


003636 


032710 


000002 




BIT 


t2, CR0) 


!IS IT RK05F7 


871 


003642 


001404 






BEQ 


4$ 


;no 


872 


003644 


104401 


003652 




TYPE 


,69$ 


; J TYPE ASCIZ STRING 


873 


003650 


000401 






BR 


68$ 


•jGET OVER THE ASCIZ 


874 








; (69$! 


1 .ASCIZ 


/F/ 




875 


003654 






68$: 








876 


003654 


005202 




4$: 


INC 


R2 


;POINT TO NEXT DRIVE i 


877 


003656 


005720 






TST 


CR0) + 


;NEXT DRIVE IN TABLE 


878 


003660 


020027 


001251 




CMP 


R0,#DRIV7+1 


;ALL DONE? 


879 


003664 


002755 






BLT 


5S 


;N0, CHECK REST 


880 
















891 








;F1ND 


OUT THE 1 


'■IRST (FROM 0-7) 


DRIVE THAT IS PRESENT, 



832 
883 
384 
835 
886 
887 
838 
889 
990 
891 
892 
393 
894 
895 
896 
897 
898 
899 
900 

9ai 

932 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 



PUT THE ADDRESS 



;0F THAT DRIVE IN 'DRIVAD', INDICATE THAT DRIVE i WILL 











fBE TESTED. 






003666 


012737 


001232 


001226 


ST3! 


MOV 


»DRIV0,DRVPTR 




003674 


105037 


001223 






CLRB 


DRVDON 




003700 


005037 


001230 






CLR 


ORIVAD 




003704 


105037 


001102 




NXTDRVI 


CLRB 


$TSTNM 


; RESET TEST NUMBER TO 1 


003710 


005037 


001112 






CLR 


$EHTTL 


(CLEAR ERROR COUNT FOR THIS 


003714 


013701 


001226 






MOV 


DRVPTR,R1 




003720 


032721 


000001 




1$: 


BIT 


»1,CR1)+ 


>IS THIS DRIVE PRESENT? 


003724 


001005 








BNE 


2S 


:¥ES, BRANCH 


003726 


020127 


001252 




4$: 


CMP 


Rl,»DRIV7+2 


(CHECKED THE WHOLE LIST? 


003732 


001372 








BNE 


1$ 


fNO 


003734 


000137 


015172 






JMP 


$EOP 


;YES, EXIT 


003740 


010137 


001226 




2s: 


MOV 


Rl.DRVPTR 


;N0, GO AHEAD 


003744 


014104 








MOV 


-(R1),R4 


;GET DRIVE NO, TO BE TESTED 


003746 


005037 


002116 






CLR 


FDRVEl 




003752 


005037 


002114 






CLR 


FORIVE 


J SHOWS F IF -1 


003756 


032704 


000002 






BIT 


*2,R4 


fRK-05F? 


003762 


001410 








BEQ 


7S 


;N0 


003764 


005237 


002116 






INC 


FDRVEl 


(SHOWS F 


003770 


032704 


020000 






BIT 


t20000,R4 


(EVEN DRIVE? 


003774 


001003 








BNE 


7$ 


(NO 


003776 


012737 


177777 


002114 




MOV 


l-l,FDRIVE 


(RK05F AND EVEN 


004004 


042704 


000003 




7$: 


BIC 


13, R4 




004010 


010437 


001230 






MOV 


R4, DRIVAD 


(SET UP DRIVE ADRES 


004014 


104401 


002064 






TYPE 


,M8G14 




004020 


000241 








CLC 






004022 


006104 








ROL 


R4 


(TYPE OUT THE DRIVE NO. 


004024 


006104 








ROL 


R4 




004026 


006104 








ROL 


R4 




004030 


006104 








ROL 


R4 




004032 


010446 








MOV 


R4,-(SP) 




004034 


104403 








TYPOS 






004036 


001 








,BYTE 


1 




004037 


000 








,BYTE 
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SEO 0035 



9l9 


004040 


005737 


002116 






1ST 


FORVEi 


IRK-0SF? 


920 


004044 


001 404 








BEO 


61 


|N0 


921 


004046 


104401 


004054 






lypE 


>65* 


IITYPE ASCIZ STRING 


922 


004052 


000401 








BR 


64( 


nGET OVER THE ASCIZ 


923 










n65tt 


.kSCIZ 


/r/ 




924 


004056 








6411 








925 


004056 








611 








926 










(IF 8H 


8 IS SET 


THEN FIND OUT WHICH TEST NUMBER IS 


927 










1 SELECTED AND JUHP TO THAT TEST 




928 
















■ rr.r&B vx.Kti TNnTmTTMC swfi SET 


929 


004056 


105037 


001222 






CLRB 


LUPSH 


930 


004062 


032777 


000400 


175050 




BIT 


*SH8(08NR 


t Bu fi fiS"1i9 

loN o oc*rr 




004070 


001445 








BEO 


TSTl 


}N0# BRANCH 


932 


004072 








51 1 








933 


004072 


104401 


004100 






TYPE 


« 671 


■ • WDP ft fif* T4 fiTPTHA 


934 


004076 


000410 








BR 


668 


9 9 rw nvFB TUP &ftrT7 


935 










> I67II 


■ ASCI Z 




i bo J F If 


936 


004120 








661 1 








937 


004120 


104412 














938 


004122 


013600 










f ADA DCI 




939 


004124 


001762 








BEQ 


5S 






004126 


020027 


00001 1 






CMP 


R0i*ll 




941 


0041 32 


003357 








BGT 


5t 


f 4a LtCavHUf Xff nut nol^ 


942 


004134 


1 10037 


001 102 






HOVB 


R0>$TSTNM 




943 


004140 


005300 








DEC 


R0 




944 


004142 


006300 








ASL 


R0 




945 


004144 


016037 


001560 


001106 




MOV 


PTl(R0}ilLPADR 


(ADJUST POINTERS FOR SCOPE 


946 


004152 


013737 


001106 


001110 




MOV 


«LPAOR>tLPGRR 


* T nnD . rT^ 
(LfUUrr 


947 


004160 


105237 


001222 






INCB 


LUPBW 


* APT Pl.&A THnTriTTMfl TP^T i 


948 
















a APf.prTPn 


949 


004164 


0001 77 


174716 






JHP 


»SLPADR 


ffirt Tn THP TPAT APF.PfTPn 


950 


















951 


















952 


















953 


















954 


















955 










ton RECOVERY FROM POWER FALIURG 


RETURN HERE 


956 


















957 


004170 


005000 






PWRFLI 


CLR 


R0 




958 


004172 


005001 








CLR 


Rl 




959 


004174 


005201 






1(1 


INC 


Rl 




960 


004 176 


001 376 








BNE 


It 




961 


004200 


105200 








INCB 


R0 




963 


004202 


001 374 








BNE 


It 




963 


















964 


















965 


















966 










i 1 «••»••«»•»*••«»••«••*•«•••••••»*•••»•••*«••••*••***«•**••«**•*• 


967 










>»TEST 


1 


CHECK INNER LIMIT SWITCH & ELECTROMECHANICAL INTEGRITY 


968 












|»THIS ' 


TEST PERFORMS 200(8) PURE SEEKS FROM CYLINDER 


969 












l»TO CYLINDER 3t2 AND BACK TO 0. IT IS SUPPOSED TO 


970 












> •CHECK 


THE INNER LIMIT 


SWITCH AND THE MECHANICAL 


971 












(•INTEGRITY OF THE DRIVE. NOTE THAT A VISUAL CHECK FOR 


972 












lANY MECHANICAL FAILURES WOULD BE VERY HELPFUL. 


973 










tl ••••••*•••*•••••••••«'••••***••••••*****•••••************••***** 


974 


004204 


000004 






TSTlt 


SCOPE 
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Tl 


CHECK 


INNER LIMIT SWITCH 


1 6 ELECTROMECHANICAL INTEGRITY 


9T5 


004206 


005000 








CLR 


R0 


(INITIALIZE COUNT 


976 


004210 


005001 








CLR 


Rl 


(INITIALIZE COUNT FOR t OF SEEKS 


977 


004212 


005002 








CLR 


R2 


(CONTAINS SEEK ADRES 


978 


004214 


012737 


004246 


001110 




MOV 


i30(>(LPERR 


(SET RETURN ACRES FOR LUPING 


979 
















(ON ERROR 


980 


004222 


012703 


001266 






MOV 


iBUFR.R3 


(INITIALIZE POINTER TO THE TABLE 


961 


004226 


012704 


177767 






MOV 


#-11. R4 


(ALLOW ONLY 9 CNTRL-RDY. SIN. OR R/H/S ROY ERORS 


9S2 


004232 


012705 


177770 






MOV 


(•10, R5 


TALLOW ONLY 8 DRU-fDRE+ERR+DRY ERRORS 


983 


004236 


000402 








BR 


2( 




984 


















985 


004240 


005703 






Itl 


TST 


R3 


(WAS THERE ANY ERROR? 


986 


004342 


001403 








BEQ 


3( 


(NO. BRANCH 


987 


004244 


005003 






2(1 


CLR 


R3 


(CLR EROR FLAG 


988 


004246 


104415 






20(1 


CON. RESET 


(GO DO CNTRL RESET. SUB ROUTINE 


989 
















(AT 'CNT.RST' 


990 


004250 


104416 








DRV. RESET 


(GO TO 'DRV.R5T' 6 DO DRV RESET 


991 
992 


004252 


013777 


001230 


175304 


3(1 


MOV 


DRIVADr8RKDA 


(ADRES THE DRIVE 


993 


004260 


050277 


175200 






BIS 


R2r8RKDA 


(SET SEEK ADRES 


994 


004264 


105777 


175162 






TSTB 


0RKDS 


(DRIVE RDY7 


995 


004270 


100406 








BMI 


21( 


(YES 


996 


004272 


004737 


016106 






JSR 


PCiGT4RG 


(NO. GET RKCS. GR. DS. DA 


997 


004276 


104030 








ERROR 


30 


(DRIVE RDY BIT IS NOT SET 


998 
















(IN RKD3 


999 


004300 


005203 








INC 


R3 


(SET ERROR FLAG 


1000 


004302 


005205 








INC 


R5 


(ALLOW ONLY 5 ERORS. IF MORE 


1001 


004304 


001515 








BEO 


18( 


(ABORT 


1002 


















1003 


004306 


012777 


000011 


175142 


21(1 


MOV 


tll,»RKCS 


(GO. SEEK 


1004 


004314 


005200 






4(1 


INC 


R0 


(WAIT FOR CNTRL RDY 


1005 


004316 


001007 








BNE 


5( 


(WAITED LONG? 


1006 
















(IF YES. ERROR 


1007 


004320 


004737 


016106 






JSR 


PC>GT4RG 


(60. GET RKCS. ER. 03. DA 


1008 


004324 


104001 








ERROR 


1 


(CNTRL RDY DIDN'T SET AFTER 


1009 
















(SEEK WAS DONE TO CYLINDER 


1010 
















(SHOWN IN RKDA. GO TO 'RKll LOGIC TESTS' 


1011 


004326 


005203 








INC 


R3 


(SET ERROR FLAG 


1012 


004330 


005204 








INC 


R4 


(EXIT THIS TEST IF THERE R 5 OR MORE ERRORS 


1013 


004332 


001502 








BEQ 


1B( 




1014 


004334 


000403 








BR 


6( 




1015 


004336 


105777 


175114 




5(1 


TSTB 


• RKCS 


(DID CNTRL RDY SETT 


1016 


004342 


100364 








BPl 


4( 


(IF NOT WAIT FOR IT 


1017 
1018 


004344 


005000 






6(1 


CLR 


R0 


(INITIALIZE COUNT 


1019 


004346 


032777 


000100 


175076 




BIT 


*100r|RKDS 


(R/W/5 RDY SET? 


1020 


004354 


001010 








BNE 


7( 


(YES 


1021 


004356 


005200 








INC 


R0 


(WAIT FOR R/W/S RDY 


1022 


004360 


001373 








BNE 


6(t3 




1023 


004362 


004737 


016106 






JSR 


PC.GT4RG 


(GET RKCS. ER. DS. DA 


1034 


004366 


104006 








ERROR 


6 


(R/W/S RDY DID NOT SET WHEN SEEK 


1025 
















(HAS DONE TO CYLINDER INDICATED IN RKDA 


1026 


004370 


005303 








INC 


R3 


(SET ERROR FLAG 


1027 


004372 


005304 








INC 


R4 


(IF MAXM EROR COUNT. ABORT 


1028 


004374 


001461 








BEQ 


1S( 




1029 


004376 


032777 


001000 


17S046 


7(1 


BIT 


11000. (RKD8 


(SIN ERROR? 


1030 


004404 


001406 








BEQ 


B( 


(NO. BRANCH 
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S£Q 0037 



1031 


004406 


004737 


016106 


JSR 


PCiGT4RG 


;G0> GET RKCSr ER> DS> OA 


1032 


004412 


1 04002 




ERROR 


2 


JSIN ERROR» ON DOING SEEK TO 


1033 












;CYL AS SHOWN IN PKDA 


1 034 


00441 4 


005203 




IMC 


R3 


tSET ERROR FLAG 


1 035 


004416 


005204 




INC 


R4 


>IF HAXM EPOR COUNT REACHED» 




004420 


001 447 




BEQ 


18S 


; ABORT THE TEST 


1037 


004422 


005777 


175026 8tl 


TST 


9RKER 


SDRE ERROR? 


1038 


004426 


1 00006 




BPL 


10S 


|N0> BRANCH 


1039 














1040 


004430 


0047 37 


016106 


JSR 


PC» GT4RG 


iGOf GET RKCS» ERf DS» OA 


1 Bii 


004434 


1 0400 3 




ERROR 


3 


JDRE ON DOING SEEK TO CYLINDER 














;AS SHOWN IN RKDA 


1 ai^ 


004436 


005203 




INC 


R3 


>SET ERROR FLAG 


1044 


004440 


005205 




INC 


R5 


;IF MAXH EROR COUNT REACHED; 


1045 


004442 


001767 




BEQ 


8S 


;ABORT THE TEST 


1046 














1047 


004444 


005777 


175006 10$l 


TST 


9RKCS 


j'ERP' BIT IN RKCS SET? 


1048 


004450 


1 00006 




BPL 


12$ 


fNOf BRANCH 


1049 


004452 


004737 


016106 


JSR 


PC,GT4RG 


;G0» GET RKCSf ER» OS, DA 


1050 


004456 


1 04004 




ERROR 


4 


J 'ERR' IN RKCS SET, ON DOING SEEK 


1051 












;T0 CYL AS SHOWN IN RKDA. NOTE 


1052 












;WHICH BIT IN RKER SET? 


1053 


004460 


005203 




INC 


R3 


jSET ERROR FLAG 
















1055 


004464 


001 425 




BEQ 


18$ 


J ABORT THE TEST 


1056 














1057 


004466 


032777 


002000 174756 1211 


BIT 


(2000t SRKDS 


5DRU SET? 


la^S 


004474 


001 406 




BEQ 


ISS 


JNO, BRANCH 


1059 


004476 


004737 


016106 


JSP 


PC» GT4RG 


JGO, GET RKCS, ER, DS, DA 


1060 


004502 


104005 




ERROR 


5 


JDRU SET, THIS IS AN IRRECOVERABLE 


1061 












;CRROR> HENCE PUT THE DRIVE ON 


1062 












tLOAD, BACK TO RON, ORU ERROR 


1063 












JSHOULD BE CLEARED, IF IT IS NOT 


1064 












;1) THE HEAD POSITION TRANSDVCER LAMP 


! 065 












lis INOPERATIVE 


1066 












;2) OR ERASE OR WRT CURRENT PRESENT 


1067 












fWlTHOUT 'WRT GATE' 


1068 


004504 


005203 




INC 


R3 


SSET EROP FLAG 


1069 


004506 


005205 




INC 


R5 


JALLOW ONLY 5 ERRORS 


1070 


004510 


001413 




BEO 


18$ 


>IF MORE THAN 5 


1071 












>G0 TO THE END OF THE PROGRAM 


1072 














1073 


004512 


005702 


15S ! 


TST 


R2 


?WAS SEEKING TO OR 312? 


1074 


004514 


001402 




BEO 


16$ 


;T0 0, BRANCH 


1075 












JTO 312, 


1076 


004516 


005002 




CLR 


R2 


;SEEK NXT TIME TO 


1077 


004520 


000647 




BR 


1$ 


;G0 BAK & SK TO 


1078 
1079 


004522 


012702 


014500 16$i 


MOV 


»14500,R2 


SSEEK NXT TIME TO 312 


1080 
1081 


004526 


005201 




INC 


Rl 


;DONE SEEKS 200 TIMES? 


1082 


004530 


022701 


000200 


CMP 


*200,R1 




1083 














1084 


004534 


001241 




BNE 


1$ 


;IF NOT, GO BAK 


1085 


004536 


000404 




RR 


TST2 


: JEXIT 


1086 
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1087 








1083 


004540 


104401 


001640 


1089 


004544 


000137 


015150 


1090 








1091 








1092 








1093 








1094 








1095 








1096 








1097 








1098 








1099 








1100 








1191 








1102 








1103 








1104 








1105 


004550 


000004 




1106 


004552 


013737 


001230 


1107 


004560 


005737 


002114 


1108 


004564 


001 003 




1109 


004566 


005737 


002116 


1H0 


004572 


001 125 




nil 


004574 






1112 


004574 


012702 


177152 


1113 


004600 


012703 


177764 


1114 


004604 


012701 


177773 


1115 


004610 


012705 


177773 


1116 


004614 


013704 


001230 


1117 


004620 


104415 




1118 


004622 


104416 




1119 


004624 


005000 




1120 








1121 


004626 


005777 


174624 


1122 


004632 


100001 




1123 








1124 


004634 


104415 




1125 








1126 


004636 


005046 




1127 


004640 


012746 


004646 


1128 


004644 


000002 




1129 


004646 


010437 


026362 


1130 


004652 


012777 


026362 


1131 


004660 


010477 


174600 


1132 


004664 


012777 


177777 


1133 


004672 


012737 


004620 


1134 








1135 








1136 


004700 


012777 


002003 


1137 








1138 


004706 


104421 




1139 


004710 


032777 


001000 


1140 


004716 


001413 




1141 


004720 


004737 


016062 


1142 


004724 


104007 





TYPE 
JHP 



,MSG4 
TST12 



; ;••«»««»»»«*•«••*•«»••»«*•••••*<•«•«*«*••««•«#•»«••«•«*»«*••***« 

;»TEST 2 FORMAT THE DISK 

(»THIS PROGRAM ASSUMES AN UNFORMATTED DISK AND ITS 
^•FORMATTING IS DONE IN THIS TEST. A SECTOR IS FORMATTED 
>»AT A TIME. THE FIRST OWRD OF EVERY SECTOR IS WRITTEN 
J»TO BE A PSOEDO-HEADER CONTAINING THE DRIVE #, CYLINDER 
>•», SURFACE AND SECTOR #, THE FOLLOWING IS CHECKED 
J»l. 'SIN' IF 'SIN' OCCURS, A DRIVE RESET IS DONE 
J»AND THE SAME SECTOR IS FORMATTED AGAIN, THREE 
;*RETRIES ARE DONE BEFORE AN ERROR MESSAGE IS PRINTED. 
j*2. 'ERR' ON FINDING THAT THE 'ERR' BIT SET, RKER 
>*SCAMNED TO FIND OUT WHAT CAUSED IT AND THE 
J»ERR0R IS REPORTED. 

TST2I SCOPE 

MOV DRIVAO,ORHOLD (SAVE DRIVE NUMBER 

TST FDRIVE rSEE IF EVEN PK-05F DRIVE 

BNE 11$ ;YES 

TST FDRVEl JODD RK-05F? 

BNE TST3 ;D0 NOT FORMAT IF ODD RK-05r 



11$! 



MOV 
MOV 
MOV 
MOV 
MOV 



t-626,R2 
#-14, R3 
t«5,Rl 
»-5,R5 
DRIVA0,R4 



CON. RESET 
DRV. RESET 
CLP R0 



TST 
BPL 



9RKCS 
3$ 



CON, RESET 



174S66 
001110 



174534 5$l 



CLR 
MOV 
RTI 
MOV 
MOV 
MOV 
MOV 
MOV 



MOV 



•(SP) 
#12$, • 



(SP) 



R4,0UTBUF 

*OUTBUr,»RKBA 

R4,9RK0A 

*-l,9RKWC 

*4$,$LPERR 



f 2003,eRKCS 



CON.RDY 

BIT «ie00,»RKDS 
BEO 6$ 
JSR PCGTSRG 
ERROR 7 



;203 CYLINDERS, (406 TRAKS) 
>12 SECTORS 

SALLOW ONLY 5 'SIN' ERRORS 
JALLOW ONLY 5 'ERR'S 
;STORE ADRES OF DRIVE, 

;G0 TO 'DR-RST' S, DO DRIVE RESET 

JKEEP COUNT OF 'SIN' ERORS 

> ALLOW 3 RETRIES ON SIN 

>ERR? 

J NO 

JGO TO 'CN-RST* & 00 CONTROL RESET 



J SET PRIORITY TO ZERO 

JHRITE THIS WORD 

J FROM THIS ADRES 

jON THIS DISK SECTOR 

J WRITE 1 WORD 

J SET RETURN ADDRESS FOR 

JLUPING ON ERROR 

J GO WRT FHT 

JWAIT FOR CONTROL READY 
JWAS THERE A SIN? 
JNO, SKIP DOING DRV RESET 
J GO, GET RKCS, ER, DS, OA, 
;SIM ERROR ON TRYING TO 
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1143 
1144 
1145 
1146 
1147 
H4« 
1140 
1190 
1151 
11S2 
11S3 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1 195 
1196 
1197 
1198 



004726 
004730 
004732 
004734 
004740 



104415 
104416 
005200 
022700 
001332 



CON. RESET 
DRV, RESET 



INC 
CMP 
BNE 



P0 

*3,P0 
l$t2 



IWRT FNT ON CYLINDER AS 

VINDICATED IN RKDA, 3 RETRIES 

;ARE DONE 

JNOTE THAT BEFORE 

IRETRYING A DRIVE RESET HAS DONE 

;G0 TO 'DR-RST* & DO DRV RESET 

IINCRMNT SIN COUNT 

)ALLOM 3 RETRIES WERE THERE 37 

tir NOTr GO fc RETRY 



004742 


005201 








INC 


Rl 


(ALLOW ONLY 12 SIN ERRORS 
















IIF MORE THAN 5 EXIT THIS TEST 


004744 


001 436 








BEQ t 


9$ 


1 IF MORE THAN 5 EXIT THIS TEST 


004746 


005777 


174504 




6St 


TST 


•RKCS 


JDID 'ERR' BIT SET IN RKCST 


004752 


100005 








BPL 


7t 


;no, branch 


004754 


004737 


016062 






JSR 


PC» GT5RG 


JGO, GET RKCS, ER, DS/DA,CYL 


004760 


104010 








ERROR 


10 


j'ERR' OCCURED WHILE DOING 
















|HRT FHT ON SECTOR, CYLINDER 
















>AS INDICATED IN RKDA. 


004762 


005205 








INC 


R5 


(ALLOW ONLY 5 'ERR'S. IF 


004764 


001426 








BEO 


91 


}HORE THAN 5 EXIT THIS TEST 


004766 


005204 






7« 1 


INC 


R4 


;INCRHNT DISK A0RE8 TO NXT SCTR 


004770 


005203 








INC 


R3 


lALL 12 SECTORS DONE? 


004772 


001314 








BNE 


11 


tir NOT, GO BAK & FHT NXT SCTR 
















>IF YES 


004774 


012703 


177764 






MOV 


i-14,R3 


(RESET COUNT FOR 12 SECTORS 


005000 


042704 


000017 






BIC 


•17, R4 


(CLR OUT SEC BITS 


005004 


062704 


000020 




811 


ADD 


#20, R4 


(ADRES THE NXT TRAK TO B FMTEO 


005010 


005202 








INC 


R2 


;ALL TRAKS FMTED? 


005012 


001304 








BNE 


1« 


(IF NOT GO BAK B FMT NXT CYL, SUR 


005014 


005237 


002114 






INC 


FDBIVE 


(EVEN RK0SF7 


005020 


001004 








BNE 


10$ 


(NO 


005022 


062737 


020000 


001230 




ADD 


120000, DRIVAD 


(FORMAT ODD DRIVE OF F 


005030 


000661 








BR 


lit 




005032 


013737 


002120 


001230 


10tt 


MOV 


DRHOLD. DRIVAD 


(RESTORE DRIVE AODR 


005040 


000402 








BR 


TST3 


((EXIT 


005042 


004737 


016716 




9tl 


JSR 


PCABRT 





( I ••••*•«•••••«•#*•*••»••••••«••««•*••*••••«•«••••••••««•«•»*»«•• 

(♦TEST 3 READ FORMAT OF THE DISK 

IN THIS TEST, THE HEADERS FROM ALL THE SECTORS ARE READ 
« CHECKED IF THEY ARE CORRECT. THE FOLLOWING IS THE 
TEST SEQUENCE. 

1. READ 12 SECTORS (HDRS ONLY) AT A TIME 

2. IF THERE IS A 'SIN' ERROR RETRY ONCE MORE, IF SAW AGAIN 
REPORT ERROR & READ HEADER FROM NEXT CYLINDER 

3. IF THERE IS 'ERR' IN RKCS, DO A CONTROL RESET, REPORT 
ERROR Ci READ HEADER FROM NEXT CYLINDER. IF THERE ARE 
MORE THAN 5 ERRORS OF THIS KIND, THIS TEST WILL BE EXITED 

4. THE 12 HEADERS ARE CHECKED. IF THEY ARE CORRECT THE 
NEXT CYLINDER IS READ. 

IF THEY ARE NOT CORRECT, A RETRY IS DONE( IF AGAIN CORRECT 
HEADERS ARE NOT RECIEVED, AN ERROR IS REPORTED. THE 
SECTOR i'S GIVING THE BAD HEADERS, fc THE BAD HEADERS ARE 
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1199 








1200 








1201 








1202 








1203 








1204 








1205 








1206 








1207 








1208 








1209 








1210 


005046 


000004 




1211 








1212 


005050 


013737 


177773 


1213 








1214 


005056 


012737 


177766 


1215 


005064 


012737 


177773 


1216 


005072 


013705 


001330 


1217 


005076 


012737 


177152 


1218 


005104 


104415 




1219 


005106 


104416 




1220 








1221 


005110 


005037 


001254 


1222 


005114 


005037 


001252 


1223 








1224 


005120 


012777 


026362 


1225 


005126 


010577 


174332 


1226 


005132 


012777 


177764 


1227 


005140 


012737 


005104 


1228 








1229 


005146 


012777 


002005 


1230 








1231 


005154 


104421 




1232 








1233 


005156 


032777 


001000 


1234 


005164 


001430 




1235 


009166 


004737 


016140 


1236 








1237 


005173 


104011 




1238 








1239 


009174 


104415 




1240 


009176 


104416 




1241 


009300 


009237 


001253 


1243 


009304 


023737 


000003 


1243 


009313 


001343 




1244 








1245 


009314 


009337 


001510 


1246 


009330 


001003 




1247 


009232 


000137 


009933 


1248 








1249 


005226 


009777 


174334 


1250 


099333 


100010 




1251 


009334 


004737 


016063 


1253 


009340 


104013 




1253 








1254 


005242 


104415 





(« STORED. 

(• 5. IF INHIBIT TYPEOUT' SWITCH IS NOT SET, THE FIRST WORDS 

(• THE 12 SECTORS (PSUEOO-HEADERS) ARE READ. IN A PREVIOUS 

(• TEST THE FIRST WORD OF EVERY SECTOR WAS WRITTEN 

(• AS A SOFTWARE HEADER (CONSISTING OF DRIVE », CYL*, SUR, SEC*) 

(• THEN THE SECTOR • GIVING BAD HEADER, EXPECTED PSUEDO-HEADER, 

(• & THE PS-HEADER RECIEVED ARE TYPED OUT, THIS WOULD 

(• WRONG, HEADER WAS BEAD WRONG, ETC. 

(• 6. THE NEXT CYLINDER IN LINE IS READ. ORDER OF READING IS 
(» CYL0,SUR0 CYL0,SUR1 CYL312,SUR1 
1 1 ••••«*»•••«•••»•••••••••*•«»•»••«••••••••••••»••«»*•«**•••••••• 

TST3( 

(ALLOW ONLY 5 ERRORS (OF BAD HEADER 
(KIND FROM 5 CYLINDERS) 
(ALLOW ONLY 12 'ERR'S 
(ALLOW ONLY 5 ERRORS 
(SET DRIVE #,CYL ADRES«0 
(313 CYLS (626 TRAKS) TO B READ 
(GO DO CONTROL RESET 
(GO DO DRIVE RESET 



1«( 
2I( 



6tl 



SCOPE 




MOV 


#-5,ERCHTl 


MOV 


*-12,ERCNT2 


MOV 


»-5,ERC«T3 


MOV 


DRIVAD, R5 


MOV 


*-626,INDX2 


CON. RESET 


DRV. RESET 


CLR 


RETRY2 


CLR 


RETRYl 


MOV 


*OUTBUF,»RKBA 


MOV 


R5,fRKDA 


MOV 


l-14,»RKHC 


MOV 


*4(,lLPERR 


MOV 


»2005,|RKCS 


CON.RDY 




BIT 


#1000,fRKDS 


BEQ 


61 


JSR 


PC, GET INF 


ERROR 


11 


CON. RESET 


DRV. RESET 


INC 


RETRYl 


CHP 


12, RETRYl 


BNE 


31 


INC 


ERCNT3 


BNE 


61 


JMP 


161 


TST 


•RKCS 


BPL 


7( 


JSR 


PCGTSRG 


ERROR 


12 


COK. RESET 



(ALLOW 2 RETRIES IF HDRS READ WRONG 
(ALLOW 2 RETRIES FOR 'SINS' 

(RO HDRS INTO LOC STARTING AT THIS 
(FROM THIS DSK ADRES 
(12 HDRS TO BE READ 

(SET RETURN ADRES FOR LUPINC ON ERROR 

(GO, RD FMT OF THIS CYLINDER 

(WAIT FOR CNTRL ROY TO SET 

('SIN' ERROR? 
(NO, BRANCH 



('SIN' OCCURED WHEN DOING RD FMT 
(FROM CYL SHOWN IN RKDA. IT 
(DO CNTRL RESET 
(GO, DO DRIVE RESET 

(ALLOW ONLY 3 RETRIES FOR THIS ERROR 
(IF TRIED 2 TIMES REPORT 
(ERROR, OTHERWISE GO BAK & RETRY 
(HAS TRIED TWICE, BUT 'SIN'. 
(ALLOW 5 ERRORS AT MOST 



('ERR' IN RKCS? 
(NO, BRANCH 

(GO, GET RKCS, ER,DS,DA,CyLNDR 
('ERR' SET WHILE DOING RD FMT 
(FROM CYL SHOWN IN RKDA 
(00 DO CNTRL RESET 
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SES (3041 



12S5 
12S6 
12S7 
12!S 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
126S 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
i27S 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1 300 
1301 
13fi2 
1303 
1304 
1305 
1306 
1307 
1 308 
1 309 
1310 



SALLOW ONLY 12 ERRORS OF THIS 



005244 


005237 


001S06 






INC 


ERCNT2 


jKINDf IF MORE THAN FIVE ERRORS 
















JSKIP THIS TEST 


005250 


001532 








BEQ 


TST4 


; (EXIT 


005252 


000520 








BR 


14$ 


;G0 SET UP TO RD FHT FROM NXT 
















JCYL IN LINE 
















JCHECK THAT CORRECT HEADERS WERE RECVD, 
















;SECTR 1 HAVING BAD HDR IS STORED ALONG 
















JMITH BAD HDR 


005254 


004737 


007204 




7(1 


JSR 


PC»CHKHDRS 


;G0 CHECK IF CORRECT HEADERS WERE READ 


005260 


005737 


001500 






TST 


IN0X3 


{WAS THERE A MISCOMPARIS0N7 


005264 


001513 








BEQ 


14$ 


;IF NOT* GO SET UP TO RD FMT 
















JNXT CYL IN LINE 


005266 


012737 


0051 14 


001 1 10 




MOV 


»2g , SLPERR 




005274 


10401 3 








ERROR 


13 


J CORRECT HDRS WERE NOT RECVD 
















;FROM SECTRS AS TYPED OUT. 
















tTHE SAME CYLINDER WAS READ TWICE 


005276 


005237 


001254 






INC 


RETRY2 


! RETRY RD FHT ON SAME CYL AGAIN 


005302 


022737 


000002 


001 254 




CMP 


»2»RETRy2 


JTRIED RDING SAME CYL TWICE 


005310 


00 1301 








BNE 


2g 


;IF NOTr SO RD AGAIN 
















;YES> REPORT ERROR 






OBJ |f|<| 






.... 
ink. 




















JABOVE TYPE, IF MORE THAN 12 
















(EXIT THIS TEST 


005316 


001505 








BEQ 


16$ 




005320 








20St 






JTHE PSUEDO-HEADERS CFIRST WORD OF EVERY 
















JSECTOR) FROM THIS CYLINDER (ABOVEf 
















(THE CYLINDER THAT GAVE WRONG HEADERS) 
















SWILL BE READf NOW, FOLLOWING WILL B TYPD OOTI 
















JSEC»» EXPCTD PSUEDO-HDR» RECVD PHDR. 
















JIF "INHIBIT TYPEOUT" SW IS SET THIS ENTIRE 
















{READING S TYPING WILL BE SKIPPED 


005320 


032777 


020000 


173612 




BIT 


*20000i9SWR 


{INHIBIT TYPEOUT? 


005326 


001 07 2 








BNE 


14$ 


{YESi SKIP THE FOLLOWING S GO 
















{SET UP TO RD FMT NXT CYL IN LINE 


005330 


012701 


177764 






MOV 


#-14, Rl 


{READ FROM 12 SECTRS 


005334 


010577 


174124 






MOV 


RS>(aRKDA 


{FROM THIS DSK-ADRES 


005340 


012777 


026362 


174114 




MOV 


#OUTBUF,flRKBA 


{INTO THIS BUS'AORES 


005346 


012777 


177777 


174104 


10S : 


MOV 


i-l,9RKWC 


{RD 1 WRD 


005354 


012777 


000005 


174074 




MOV 


fSraRKCS 


{G0> RD 


005362 


104421 








CON. ROY 




{WAIT FOR CNTBL ROY 


005364 


005777 


174066 






TST 


?RKCS 


{ANY EROR? 


005370 


100002 








BPL 


15S 


{NO, PROCEED 


005372 


104415 








CON. RESET 


{CLEAR THE EROR 


005374 


000447 








BR 


14$ 


{EROR, SO COULDN'T READ PSUEDO-HDRS 


005376 


005201 






15$: 


INC 


Bl 


{READ FROM ALL 12 SECS 


005400 


001362 








BNE 


10$ 


{IF NOT GO RD THE NXT ONE 



{TYPE OUT PSUEDO-HDRS CORRESPONDING TO 
{THE SECTORS WHICH GAVE BAD HEADERS 



MAlNDEC-ll-DERKL-D 
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-AUG-76 


15135 


1311 








1312 








1313 


005402 


104401 




1314 


005404 


001771 




1315 


005406 


012701 


001266 


1316 








1317 


005412 


104401 




1318 


005414 


001213 




1319 








1320 


005416 


011102 




1321 


005420 


012703 


026362 


1322 








1323 








1324 


005424 


005702 




1325 


005426 


001403 




1326 


005430 


005302 




1327 


005432 


005723 




1328 


005434 


000773 




1329 








1330 


005436 


011 146 




1331 


005440 


104403 




1332 


005442 


002 




1333 


005443 


000 




1334 








1335 


005444 


104401 




1336 


005446 


002105 




1337 








1338 


005450 


010546 




1339 


005452 


051 116 




1340 


005454 


104402 




1341 








1342 


005456 


104401 




1343 


005460 


002103 




1344 








1345 


005462 


011346 




1346 


005464 


104402 




1347 








1343 


005466 


005721 




1349 


005470 


021127 


177777 


1350 


005474 


001346 




1351 








1352 


005476 


104401 


001733 


1353 


005502 


012746 


005320 


1354 


005506 


104402 




1355 


005510 


104401 


001213 


1356 








1357 








1358 








1359 








1360 








1361 


005514 


062705 


000020 


1362 


005520 


005237 


001476 


1363 


005524 


001404 




1364 


005526 


000137 


005110 


1365 








1366 


005532 


004737 


016716 



T3 



READ FORMAT OF THE DISK 



TYPE 
MSGll 

MOV »BUFR,R1 

TYPE 
SCRLF 



MOV 


CR1).R2 


MOV 


#0UTBUF,R3 


TST 


R2 


BEQ 


13$ 


DEC 


R2 


TST 


CR3) + 


BR 


12$ 


MOV 


CR1),-(SP) 


TYPOS 




.BYTE 


2 


.BYTE 





TYPE 




BLNKS5 




MOV 


R5,-CSP) 


BIS 


(R1),(SP) 


TYPOC 




TYPE 




BLNKS7 




MOV 


CR3),-CSP) 


TYPOC 




TST 


(Rl) + 


CMP 


(Rl), #177777 


BNE 


lit 


TYPE 


,MSG7 


MOV 


•20$, -(SP) 


TYPOC 




TYPE 


ftCRLF 


ADD 


»20,R5 


INC 


IN0X2 


BEQ 


TST4 


JHP 


1$ 



{TYPEJ SEC », EXPC P-HDR, RECVD P-HDR 
{TYPE OUT 

{SEC »'S ABE STORED HERE 
{TYPE CR, LF 



{PSUEDO-HEADERS WHICH WERE 
{READ ARE STORED HERE 

{IS THIS SEC « CORRESPONDING TO THE 

{ONE IN ERROR 

{R2 CONTAINS THE SEC # 



(GO TYPEOUT SEC » GIVING 
(MISCOMPARISON OF HEADERS 

(SUPRES LOG 0'S 

{TYPE 2 BLANKS 

(GO TYPE EXPCTD PSUEDO HEADER 
{TYPE 2 BLNKS 

(CO TYPE PSUEDO-HEADER RECVD 

(TYPED OUT ALL SEC *'S IN ERROR. 
(IF NOT GO BAK & TYPE NXT 
(TYPE OUT PC 

(TYPE ROUTINE ENDS HERE 

(FIND OUT NXT TRAK TO B READ 
(FORMATTED 

(SET ADRES FOR SUR 0, NXT CYL IN LINE 
(READ ALL 313 CYLINDERS (626 TRAKS]? 
((EXIT 

(IF NOT, GO BAK & READ NXT 
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SEQ 0043 



1367 
1366 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1379 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 



005536 
005540 
005542 



000004 
104415 
104416 



; ;*••*•••»»»««•*»•••••••••••»*»»••««•••••*»«•*•»•*•***•*•**•••**• 

J»TE8I 4 SEEK PATTPRNSl 0-3 1 2-0-31 1 - , . . , USIHG IMPLTEO SEEK 

|»#»»TE8T 2 (WRITING PSUEDO-HEADERS) SHOULD HAVE BEEN DONE BEFORE**** 

DOING THIS TEST**** 
J*THIS TEST PERFORMS SEEKS (IMPLIED SEEKS USING 'READS') IN THE 
(•FOLLOWING PATTERN. 
» ♦0-312-0-311 -0-310- 0-1-0-0 

>*THE FIRST WORD OF EVERY SECTOR IS A PSEUDO-HEADER (WRITTEN IN 
|*A PREVIOUS TEST) CONSISTING OF DRIVE N0« CYLINDER N0.« SURFACE 
(•AND SECTOR NO, AN IMPLIED SEEK IS DONE BY ISSUING A 'READ' FOR 
j*THfi PSEUDO-HEADER OF SECTOR 0, SURFACE 0, 

(•IF A 'SIN' OCCURS TWO TRIES ARE DONE BEFORE ABORTING, IF A 'SKE' 
(•OCCURS IT COULD MEAN THAT 1) EITHER THE HEADERS WAS READ 'RONG 
(•OR 2} THE HEADS GOT POSITIONED ON THE WRONG CYLINDER, IN 
(•ORDER TO PROVIDE A FURTHER INSIGHT INTO THE PROBLEM, THE FOLLOWING 
(•IS DONEt 

(•THE HEADERS ARE READ FROM THE CYLINDER THAT GAVE 'SKE'. IF THE HEADERS 
(•ARE CORRECT IT IS SO REPORTED. IF THE HEADERS ARE INCORECT, THEN THE 
(•EXPECTED HEADERS AND THE RECEIVED ONES ARE REPORTED. ONE MORE TRY IS 
(•DONE (THE IMPLIED SEEK IS TRIED AGAIN BETWEEN THE CYLINDERS THAT GAVE RISE 
(•TO 'SKE') 

(•THE FOLLOWING ACTION IS TAKEN WHEN THERE IS NO 'SKE' OR 'SIN' BUT STILL THE 
{•PSEUDO-HEADER IS READ HRONGI 

(•FIRST THE HEADERS ARE READ FROM THAT CYLINDER AND CHECKED. IF THEY ARE 

(••CORRECT, IT IS SO REPORTED. IF THEY ARE WRONG THEN THE EXPECTED AND RECEIVED 

(•HEADERS ARE REPORTED. THEN THE PSEUDO-HEADER FROM SECTOR 1 IS READ AND REPORT 

(•ONE MORE TRY IS DONE BY REPEATING THE WHOLE PROCESS. (IMPLIED SEEK 

(•BETWEEN THE TWO CYLINDERS AND READING PSEUDO-HEADER FROM SECTOR B OF THE DESTI 

(•CYLINDER). 

(•UP TO 12 ERRORS OF EACH KIND (SIN, SKE, BAD PSEUDO-HEADER) ARE ALLOWED, 
(•IF ANY ERROR OCCURS MORE THAN 12 TIMES THE TEST IS ABORTED. 
( (••••••••••••••••••••••••••••••••••••••••••••••••••»•••••••••••• 

TST4J SCOPE 



CON. RESET 
DRV. RESET 



005544 005004 



005546 
005554 
005560 
005564 
005570 



012737 
012700 
010037 
010037 
010037 



177465 
177764 
001504 
001506 
001510 



001476 



005574 012737 014500 001260 



MOV 
MOV 
MOV 
MOV 
MOV 

MOV 



*-313,INDX2 
1-14, R0 
R0,ERCNT1 
R0,ERCNT2 
R0,ERCNT3 

•14500, INADR 



(GO DO CONTROL RESET 
;G0 DO DRIVE RESET 

(FLAG, CLR IF DOING IMPLIED 
(SEEK IN FROM TO 'INADR' 
{■1, IF GOING FROM 'INADR' 

(OUT TO CYL 
(313 SEEK PATTERNS 

(ALLOW ONLY 12 ERRORS 
(OF THESE KINDS 



j'INAOR' CONTAINS THE INER 
(CYL TO WHICH IMPLIED SEEK WILL 
(BE DONE 



MAIMDEC 


-11-OZRKL-D 


MACYll 


27(1006) 


04-OCT 


-76 14126 PAGE 38 




DZRKLO.Pll 31 


-AUG-76 


15(35 




T4 


SEEK PATTERNS! 0-312-8 


-311-. . .fUSING IMPLIED SEEK 


1423 


005602 


005704 






1*1 


TST 


R4 


(GOING IN OR OUT? 


1424 


005604 


001005 








BNE 


2t 


(GOING OUT, BRANCH 


1425 


005606 


013705 


001260 






MOV 


INADR, R5 


(SET CYL ADREiS BITS FOR GOING IN 


1426 


005613 


053705 


001230 






BIS 


DRIVAD,R5 


(FORM DISK ADRES FOR INNER 


1427 


005616 


000403 








BR 


3* 


[CYLINDER 


1428 


005620 


013705 


001230 




211 


MOV 


DRIVAD,R5 


(FORM DISK ADRES FOR OUTER 


1429 
















(CYLINDER - 


1430 
















(ALLOW 2 TRIES WHEN 


1431 


005624 


012737 


177776 


001354 


3(1 


MOV 


#-2,RETRY2 


(ERRORS OCCUR 


1432 


005632 


012737 


177776 


001352 


13ti 


MOV 


I-2,RETRY1 




1433 


005640 


012737 


177777 


001356 


4I( 


MOV 


»-l,RETRY3 




1434 


005646 


000404 








BR 


St 




1435 


005650 


104415 






611 


CON. RESET 




1436 


005652 


104416 








DRV. RESET 




1437 


005654 


004737 


006452 






JSR 


PCSBRl 


(REPOSITION HEADS TO PRE-ERROR CYL 


1438 
1439 


005660 


012777 


177777 


173572 


S$l 


MOV 


*-l,8RKWC 


(READ 1 WORD 


1440 


005666 


010577 


173572 






MOV 


R5,iRKDA 


(FROM THIS CYLINDER, SEC 


1441 


005672 


012777 


026362 


173562 




MOV 


tOUTBUF,»RKBA 


(INTO THIS BUS ADRES 


1442 


005700 


012737 


005650 


001110 




MOV 


*6t,«LPERR 


■SET RETURN ADRES FOR LUPING 


1443 
1444 
















(ON 'ERROR' 


1445 


005706 


012777 


000005 


173542 




MOV 


I5,»RKCS 


(GO, READ 


1446 


















1447 


005714 


104421 








CON.RDY 




(WAIT FOR CNTRL RDY 


1448 
1449 


005716 


032777 


001000 


173536 




BIT 


f ie00,«iRKDS 


(SIN? 


1450 


005724 


001434 








BEO 


81 


(NO, BRANCH 


1451 
















(YES, THERE WAS A SIN 


1452 


005736 


004737 


016322 






JSR 


PCrERRl 


(GO GET, CYLS BEIW'N WHICH SK WAS TRIED 


1453 


005732 


017737 


173514 


001170 




MOV 


»RKD8,»REG3 




1454 


005740 


017737 


173510 


001166 




MOV 


0RKER,IREG2 




1455 


005746 


104420 


001602 






TYPMSG 


,HSGt 




1456 


005752 


013737 


001256 


001173 




MOV 


RETRX3,IREG4 


(SAVE TRY « ON 'SIN' 


1457 


005760 


062737 


000003 


001173 




ADD 


*2,tREG4 




1458 


005766 


104014 








ERROR 


14 


(AN IMPLIED SEEK WAS TRIED 


1459 
















(FROM 'CYLA' TO 'CYLB' (INDICATED 


1460 
















(IN EROR MESAGE), 'SIN* OCCURRED, 


1461 
















(2 TRIES ARE DONE BEFORE 


1462 
















(ABORTING 


1463 


005770 


005737 


001356 






TST 


BEIRY3 


(DONE RETRIES 


1464 


005774 


001403 








BEO 


71 


(YES, BRANCH 


1465 


005776 


005237 


001356 






INC 


REIBy3 


(GO DO 3ND TRY 


1466 


006002 


000733 








BR 


61 




1467 


















1468 


006004 


005337 


001504 




711 


INC 


ERCMTl 


lALLOW LESS THAN 12 ERORS OF THIS TYPE 


1469 


006010 


001103 








BNE 


19( 


IIF MORE SKIP THIS TEST 


1470 


006012 


000137 


006540 






JMP 


EXT4 


(EXIT THIS TEST 


1471 
1473 


006016 


033777 


010000 


173430 


Sit 


BIT 


tl0000,|iRKER 


(SKET 


1473 


006034 


001506 








BEO 


201 




1474 


006036 


004737 


018323 




1511 


JSR 


PCrERRl 


IGO GET 2 CYL NOS. BETWEEN WHICH 


1475 


006033 


017737 


173416 


001166 




MOV 


•RKER«tREG3 


(IMPLIED SEEK WAS DONE 


1476 


006040 


017737 


171406 


00U70 




MOV 


•RKDS,IREG3 




1477 


006046 


013737 


001252 


00U73 




MOV 


RETRyi,IREG4 


(GET TRY I ON 'SKE' 


1478 


006054 


062737 


00000} 


00U72 




ADD 


«3,IReG4 
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SEO 0045 



1479 


006062 


104420 


001610 


TYPMSG 


>MSG2 


IGO PRINT 'SKE' 


1480 


006066 


104014 




ERROR 


14 


> IMPLIED SEEK HAS TRIED FROM 


1481 












I'CYLA' TO 'CYLB' (INDICATED 


1482 












lIN EROR HESAGE)! 'SKE' OCCURRED. 


1483 












|2 TRIES ARE DONE. 


1484 


006070 


104415 




CON. RESET 


;D0 CONTROL RESET 


1485 












IGO READ 12 HEADERS FROM 


1 486 


006072 


004737 


006476 9t! 


JSR 


rC-# 5BR2 


148? 












(THIS CYLINDER «■ COMPARE 


1 488 












>THEM, NOTE R5 CONTAINS THE 


1489 












;DISK ADRES THAT MILL BE USED, 


1 490 














1 491 


006076 


012777 


000015 173352 


MOV 


ff 1 9 r PHnCo 


IGO DO DRIVE RESET 


I 492 












{WHILE THE DRIVE IS DOING RESET 


1493 












>THE HORS THAT HERE READ 


1494 












{ABOVE ARE CHECKED r PRINTED 


1 495 














1496 


006104 


005737 


001500 


TST 


INDX3 


IHAS THERE A MISCOMPARISON 


1497 












flN ANY HEADER? 


1 498 


0061 10 


001006 




BNE 


1 0t 


;IF INDX3>0, THERE HAS. 


1 499 












;NOr THERE WASN'T, HDR8 OK 


1 500 


0061 12 


005237 


001 252 


INC 


RETRY I 


;ONLY 2 TRIES FOR SKE 


1501 


006116 


001414 




BEQ 


128 


{BRANCH IF THIS WAS A 2ND TRY 


1502 


006120 


104420 


001657 


Ti'pfiSG 


r H5G5 


{TYPE GUT THAT >iDRS HERE READ 


1 503 












{CORRECTLY. THIS WAS TRY 1 1 


1 504 














1505 


006124 


000405 




BR 


11$ 




1506 














1507 












{HDRS HERE READ INCORRECT, 


1508 


006126 


005237 


001252 1081 


INC 


DPTD V 1 

HEiTH 1 1 


{ALLOW 2 TRIES FOR SKE 


1509 


006132 


001411 




BEO 


14$ 


{BRANCH* IF THIS HAS 2ND TRY 


1510 
151 1 












{THERE WAS SKE ON DOING IMPLIED 


1512 


006134 


104417 


000015 


- 

"E5 AGE 


f 15 


{SEEK TO 'CYL B'. THEN HDRS WERE 


1513 












{READ FROM CYL Bf WRONG HDRS 


1514 












{RECVD 


1515 














1516 


006140 


104423 


list 






{WAIT FOR PREVIOUS DRIVE RESET 


1517 












{TO BE DONE 


1518 


006142 


004737 


006452 


jSR 




{GOr REPOSITION HEADS 


1519 


006146 


000634 




BR 


4$ 




1520 














1521 












{2ND TRYf SKE THIS TIME ALSO. BUT 


1522 












{READ HDRS CORRECTLY FROM 


1523 












{CYLINDER THAT GAVE SKE 


1524 












{NOTE THIS WAS THE 2ND TRY 


1525 


006150 


104420 


001657 12SI 


TYPMSG 


rMSG5 


{TYPE OUT THAT HDRS WERE 


1526 












{READ CORRECTLY. 


1527 














1528 


006154 


000402 




BR 


16$ 




1529 














1530 












{2ND TRY, SKE THIS TIME ALSO. 


1531 


006156 


104417 


000015 1411 


MESAGE 


as 


{READ HDRS FROM CYL THAT 


1532 












{GAVE SKEi THEY WERE INCORRECT. 


1533 














1534 


006162 


104423 


16$| 


RESDON 




{WAIT FOR PREVIOUS DRIVE RESET 
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1535 
















{TO BE DONE 


1536 


















1537 


006164 


005237 


001506 






INC 


ERCNT2 


{ALLOW ONLY LESS THAN 10 ERRORS OF 


1538 
















{THIS TYPE (SKE) 


1539 


006170 


001002 








BNE 


17$ 




1540 


006172 


000137 


006540 






JMP 


EXT4 


{EXIT THIS TEST IF MORE 


1541 


















1542 


006176 


005704 






17$l 


1ST 


R4 


{WENT LAST TIME IN OR OUTT 


1543 


006200 


001007 








BNE 


19$ 


{OUT 


1544 
















;IN 


1545 


006202 


005703 








TST 


R3 


{WERE HDRS CORRECT? 


1546 


006204 


001005 








BNE 


19$ 


{NO 


1547 
















{YES 


1548 


















1549 


006206 


005204 






18${ 


INC 


R4 




1550 


006210 


004737 


006452 






JSR 


PCSBRl 


{GO POSITION HEADS BAK ON INNER 


1551 
















JCYL 


1552 


006214 


000137 


005602 






JMP 


1$ 


{GO BAK & SEEK OUT NOW 


1553 


















1554 


006220 


005237 


001476 




19$: 


INC 


INDX2 


{ALL SEEK PATTERNS DONE? 


1555 


006224 


001547 








BEQ 


TST5 


{{EXIT 


1556 


















1557 


006226 


162737 


000040 


001260 




SUB 


t40,INADR 


{SET ADDRESS FOR THE NXT 


1558 
















{INNER CYLINDER 


1559 


006234 


005004 








CLR 


R4 


{INDICATE THAT NOW SEEK IS GOING 


1560 
















{TO BE IN 


1561 


006236 


000137 


005602 






JMP 


1$ 


{GO BAK « SEEK IN TO 'INADR' 


1562 


















1563 


006242 








20$ 1 






{IF THERE WAS NO SIN OR SKE 


1564 
















{ENTER HERE 


1565 


















1566 


006242 


012737 


005624 


001110 




MOV 


*3$,$LPERR 


{SET RETURN ADRES FOR LUPING 


1567 
















{ON ERROR 


1568 


006250 


020537 


026362 






CMP 


R5«0UTBUF 


{CORRECT PSUEDO-HEADER READ? 


1569 


006254 


001471 








BEQ 


24$ 


{YESf BRANCH 


1570 


006256 


013737 


001254 


001172 




MOV 


RETRY2f $REG4 


{GET TRY » 


1571 


006264 


062737 


000003 


001172 




ADD 


t3,$REG4 




1572 


006272 


004737 


016322 






JSR 


PCrERRl 


{GO GET CYL #'S BETW'N 


1573 
















{WHICH IMPLIED SEEK (READ) 


1574 
















{HAS DONE 


1575 


006276 


010537 


001166 






MOV 


R5>$REG2 


{GET EXPCTD PSUEDO-HDR 


1576 


006302 


013737 


026362 


001170 




MOV 


0UTBUF,$REG3 


•GET PSUEDO-HDR RECVD 


1577 


006310 


104016 








ERROR 


16 


{IMPLIED SEEK FROM CYLA TO CYLB HAS 


1578 
















{READ PSEUDO-HEADER OF SEC 0r 


1579 
















{CYLB (IN EROR MESAGE), BUT 


1580 
















{THE WRONG PSEUDO-HEADER WAS 


1581 
















{RECEIVED 


1582 


006312 


005237 


001254 






INC 


RETRY2 




1583 


006316 


001402 








BEO 


21$ 




1584 


006320 


000137 


005632 






JMP 


13$ 




1585 


















1586 


















1587 


006324 


004737 


006476 




21$t 


JSR 


PC,SBR2 


{GO READ HEADERS (12) FROM 


1588 
















{THIS CYLINDER, & CHECK THEM, 


1599 
















{IF MISCOMPARISON INDX3 HILL 


1590 
















{BE > 0. 
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SEQ 0047 





006 330 




001 500 






TST 


lNfDX3 




1592 




Vv 1 W9 










22 1 




1593 




104420 


001 657 






TYPH8G 




s WRONG PSUEDO^HDR HAS READ 


















9 BUT WHEN HDRS WERE READ 


















;FROM THE SAME CYLINDERf THEY 


1590 


006342 


000402 








BR 


238 


3 WERE CORRECT 


1597 


















Jf 




7 


000015 




22t t 




r 15 


? WRONG PSU£DO*HDR WAS READ 


1599 
















'FROM 'CYLB' (IN ERROR MESAGE)t 


1600 


















1601 
















■ anus* ^VT TuncD vucv urDP &T.SA 


1602 
















f WRONG « 


1603 


006350 








23*1 






*NON READ THE PSUEDO*HEADER 


1604 


006352 










INC 


R0 




1605 


006354 


010077 


173104 






MOV 






1606 


006360 


012777 


026362 


1 7 3074 




MOV 


tOUTBUFf 9RKBA 




1607 


006366 


01 2777 




1 7ta«l 






S M 1 > ADIT 




1608 


006374 


01 2777 




173054 




MOV 






1609 


006402 










0f\tt DISV 






1610 


170041/4 


010537 














1611 




004737 


BID Jov 






J5R 


PC'# GC YL 


1 GO GET CYL # STORE IT IN $REG0 


if 1 1 




010037 


001 164 






MOV 


R0 r tREQl 


}GET EXPCT PSUEDO*HDR FROM SEC 1 




AAA 


01 3737 


026362 


001 166 




MOV 


OUTBUFf f REG2 






006426 


104417 


00001 7 








r 17 


y PSUEDO^HEADER FROM SEC 1 t CYLB 


1615 
















J \ LTt nCdAvCjJ IfAO nCrAU • inCi tACUlU 


1616 
















76 RECVD DATA WORDS ARE REPORTED. 


161 7 


006432 


005237 


001 510 






InC 


ERCNT3 


■ ATT nUT V T ffCC TUftU 1 A CBOnOA 
f AuiiUiW Unu X ubwO 1 nAn IK) EiPPwnO 


1618 




















00o43o 


00 1 440 










EXT4 




isifl 




















VUO^ w 


005704 






24$ 1 




R4 


7 SEEKED IN OR OUT LAST TIME? 


1622 


006442 


001266 








BNE 


19$ 


S IF OUTp GO SEEK NXT INNER CYL 


1623 
















tTB* tN. fif\ 1WVK nair ff\ 01 
t ir X r viu DbEin OAh iw 




006444 


005204 








INC 


R4 


1 INDICATE THAT SEEK OUT (0) 


1625 


006446 










JMP 


1 S 


3 HILL BE DONE NOW 


1 626 


















1627 


















1628 














;THIS 


ROUTINE IS USED IN THIS TEST ONLY, 


1 629 














|R4»0 


INDICATES SEEK BEING DONE FROM 
















JCYL 


TO INNER CYL. 


1631 














|P4"1 


INDICATES SEEK BEING DONE FROM 
















1 INNER 


CYL TO 0. THIS ROUTINE POSITIONS 


1 KI» 














>THE HEADS ON 'INADR' CYL IF R4»l 


1634 
1635 


006452 


005704 






SBRl 1 


TST 


R4 




1636 


006454 


001 407 








BEQ 


H 




1637 


006456 


01 3777 










iNADRf 9RKDA 




' 


006464 




Wvv I 1 


172704 




MOV 


«llf 9RKCS 




1639 


006472 


104422 








TST RW3 






1640 


006474 


000207 






19 > 


RTS 


PC 




1641 


















1642 














ITHIS 


ROUTINE IS USED IN THIS TEST 


1643 














yONLY. 


IT READS 12 HEADERS FROM CYLINDER 


1644 














9 WHOSE 


ADRES IS IN R5. THEN IT CHECKS 


1645 














tXf THE EXPECTED HEADER IS RECEIVED. 


1646 














JIF IT 


IS NOTf INDX3 IS INCREMENTED INDICATING 



MAINOEC 


•11-DZRKL-D 


MACYll 


27(10063 04-OCT 


-76 


14126 PAGE 32 




dzrkld. 


Pll 31 


-AUG-76 


15135 


T4 


SEEK 


PATTERNSI 0»312 


-0*3ll-.,.,USING IMPLIED 


1647 












ITHE 


ERROR 


1648 
















1649 


006476 


012700 


177764 


8BR2t 


MOV 


«*14«R0 




1650 


006502 


012701 


026362 




MOV 


lOUTBUFrRl 




1651 


006506 


010077 


172746 




MOV 


R0f »RKHC 


;READ 12 HDRS 


1652 


006512 


010177 


172744 




MOV 


Rlr»RKBA 


J INTO THIS ADRES 


1653 


006516 


010577 


172742 




MOV 


R5r9RK0A 


SFROH THIS CYLINDER 


1654 


006522 


012777 


002005 


172726 


MOV 


ff2005r»RKC8 


rRD FMTr GO 


1655 


006530 


104421 






CON. 


rdy 




1656 
















1657 


006532 


004737 


007204 




asR 


PCf CHKHDRS 


J GO CHECK IF CORRECT 


1658 
















1659 


006536 


000207 






RTS 


PC 


lEXIT 


16^0 
















1661 


006540 


004737 


016716 


EXT4I 


JSR 


PCr ABRT 





1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 



006544 
006546 
006550 



000004 
104415 
104416 



1 1 ••«»•****••»••»»»»••••*••••••*•••*•«••«••••«•«•*•••«•«••«•«•••• 

;»TE8T 5 PERrORH CONVERGING-DIVERGING (IMPLIED) SEEKS 

;*THIS TEST PERFORMS A CONVERGING-DIVERGING SEEK PATTERN 
(•USING IMPLIED SEEK (READ FORMAT). THE SEEK SEQUENCE ISl 
I»0-312-l-3U-2-3l0-3-307-—— 310-2-311-1-312 
;ALL READ FORMATS ARE DONE FROM SURFACE 0. 

|»THE CYLINDER ADDRESSES. BETHEEN WHICH THE IMPLIED SEEK IS 
J»PERFR0RMED, ARE CONTAINED IN 'OOTADR' & 'INADR'. IF 'SIN' OCCURS 
|«AN ERROR IS REPORTED AND A RETRY IS DONE. ON READING INCORRECT 
JttHEAOERS AH ERROR IS REPORTED AND A RETRY IS DONE, NOTE THAT IF 
>»ALL THE 12 HEADERS ARE INCORRECT, IT COULD MEAN THAT THE HEADS 
t*COULD NOT POSITION CORRECTLY. THIS WOULD BE CONFIRMED IF IN 
|*PREVIOUS TESTS BAD HEADERS HERE NOT RECIEVED FROM THE SAME 
(•CYLINDER. IF THAT CYLINDER GAVE BAD HEADERS IN ALL THE PREVIOUS 
(•TESTS THE PROBLEM COULD BE DIFFERENT. 
(•MAXIMUM 12 ERRORS OF ANY KINO ARE ALLOWED. 
(•IF MORE THAN 12 ERRORS OCCUR THE TEST IS ABORTED. 

( (•••••••••••••••••••••«•••»•••••••••••••••••••••••••••••••••»••• 

TST5I SCOPE 



006552 005004 



006554 012737 177466 001476 

006563 013700 177764 

006566 010037 B015B4 

006573 010037 001506 

006576 005037 001363 

006603 012737 014900 001260 

006610 005704 

006613 001005 

006614 01370S 001360 
006630 053705 001330 
006634 000404 

006636 013705 001363 



211 



CON, 


.RESET 


(GO, 00 CONTROL RESET 


DRV, 


, RESET 


(GO, DO DRIVE RESET 


CLR 


R4 


((R4)«0 SEEKING FROM 'OUTADR' TO 'INADR' 






((R4)«l SEEKING FROM 'INADR' TO 'OUlRDR' 


MOV 


«.313,INDX2 


(SET COUNT FOR DOING 312 TIMES 


MOV 


*-14>R0 




NOV 


RBiERCNTl 


(ALLOW ONLY 12 ERRORS 


MOV 


R0f ERCNT2 




CLR 


OUTADR 


(INITIALIZE 'OUTADR' TO 


MOV 


I14S00I INADR 


(INITIALIIE 'INADR' TO 312 


TST 


R4 


(GOING IN OR OUT? 


BNE 


3t 


(GOING OUT, BRANCH 


MOV 


INADR, R5 


(SET CYL ADRES BITS FOR GOING IN 


BIS 


DRIVAOfRS 


(FORM DISK ADRES FOR INNER CYLINDER 


BR 


31 




MOV 


OUTADR, R5 


(SET CYL ADRES BITS FOR GOING OUT 
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SEQ 0049 



1703 


006632 


053705 


001230 






BIS 


DRIVAD.RS 


;FORH DISK ADRES FOR GOING OUT 


1704 


















1705 


006636 


005037 


001254 




3tl 


CLR 


RETRY2 


1 ALLOW 2 RETRIES 


1706 


006642 


012737 


177777 


001252 


4(1 


MOV 


l>liRBTRyl 


;HHEN ERRORS OCCUR 


1707 


006650 


000404 








BR 


7» 




1708 


006652 


104415 






5*1 


CON. RESET 




1709 


006654 


104416 








DRV. RESET 




1710 


006656 


004737 


0071S0 






JSR 


PC'> SBR3 


|G0 REPOSITION HEADS 


1711 
17J2 


006662 


012777 


177764 


172570 


7SI 


HOV 


tf«14f 0RKNC 


;read all hdrs from this cylinder 


1713 


006670 


010577 


172570 










(FROM THIS CYLf SEC 


1714 


006674 


012777 


026362 


172S60 




MOV 


lOUTBUPf 9RKBA 


;INTO THIS BUS ADRES 


17l5 


006702 


012737 


006652 


001110 




MOV 


95tf tLPERP 


;SET RETURN ADRES FOR LOOPING ON ERROR 


1716 
1717 


006710 


012777 


002005 


172540 




OV 




;read format. go 


1718 
1719 


006716 


104421 








CON RDY 




;HAIT FOR CONTRL RDY 


1720 


















1721 


006720 


032777 


001000 


172534 




BIT 


1 1 000. 0RKDS 


;SINT 


1722 


006726 


001443 








BEQ 


8S 


;N0. BRANCH 


1723 


006730 


017737 


172530 


001166 




MOV 


»RKER>SREC2 


ISAVE RKER 


1724 


006736 


017737 


172510 


001 170 




MOV 


•RK0S»*REG3 


JSAVE RKDS 


1725 


006744 


013737 


001252 


001172 




MOV 


RETRyU$REC4 


;GET RETRY * 






g62737 


000002 








$2r»RCG4 




1727 


006760 


004737 


016244 






JSR 


PCrERR2 


;GET CYL *'S BELOW 'N WHICH 


1729 
















JSEEK HAS TRIED 


1729 


006764 


104420 


001602 






TYPMSC 


«HSG1 


jTYPE 'SIN' 


1730 


006770 


104014 








ERROR 


14 




1731 
















;'SIN' OCCURRED ON DOING IMPLIED 


1712 
















JSEEK FROM 'CYLA' TO 'CYLB' tIN 


1733 
















lEROR MESAGE). 


1734 


006772 


005737 


001252 






TST 


RETRYl 


IDONE 2 TRIES7 


1735 


006776 


001403 








BEQ 


6< 


lYES. BRANCH 


1736 


007000 


005237 


001252 






INC 


RETRY 1 


;N0, RETRY 


1737 


007004 


000722 








BR 


5t 




1738 


007006 


104415 






6$i 


CON. RESET 




1 739 


007010 


104416 








DRV. RESET 




1740 


















1741 


















1742 


007012 


005237 


001504 






INC 


ERCNTl 


; ALLOW LESS THAN 12 ERORS OF THE 


1743 


007016 


001527 








BEQ 


EXT5 


; ABOVE KIND 


1744 
















;IF MORE SKIP THIS TEST 


1745 
















(SIN OCCURED WHEN GOING TO CYL CIN 


1746 
















;R5K A DRVE RESET HAS BEEN DONEr 


1747 
















;NOH TRY POSITIONING HEADS ON 


1748 
















;THAT CYL. 


1749 


007020 


010577 


172440 






MOV 


R5«0RKOA 


;SET CYL ADRES 


1750 


007024 


012777 


000011 


172434 




MOV 


*11,9RKCS 


! SEEK. GO 


1751 


007032 


104422 








TST.RHS 






1752 


007034 


000424 








BR 


11* 




1753 
















;IF NO SIN> ENTER HERE 


1754 


007036 


004737 


007204 




8$l 


JSR 


PCrCHKHDRS 


;G0 CHECK IF CORRECT HEADERS HERE READ 


1755 


















1756 


007042 


012737 


006642 


001110 




MOV 


«4«,«LPERR 


ISET LUP ADDRESS 


1757 


007050 


005737 


001500 






TST 


INDX3 


>HAS THERE A BAD HDR7 


1758 


007054 


001414 








BEO 


U* 


SNO. BRANCH 
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SCO 0050 



1759 


007056 


104020 




1760 








1761 








1762 


007060 


005237 


001254 


1763 


007064 


022737 


000002 


1764 


007072 


001263 




1765 


007074 


005237 


001506 


1766 


007100 


001002 




1767 


007102 


000137 


007276 


1768 








1769 


007106 


005704 




1770 


007110 


001006 




1771 








1772 


007112 


005204 




1773 








1774 


007114 


062737 


000040 


1775 


007122 


000137 


006610 


1776 








1777 








1778 


007126 


005004 




1779 








1780 


007130 


162737 


000040 


1781 


007136 


005237 


001476 


1782 








1783 


007142 


001457 




1784 








1785 


007144 


000137 


006610 


1786 








1787 








1788 








1789 








1790 








1791 








1792 








1793 








1794 


007150 


005704 




1795 


007152 


001404 




1796 


007154 


013777 


001260 


1797 


007162 


000403 




1798 


007164 


013777 


001262 


1799 


007172 


012777 


000011 


1800 


007200 


104422 




1801 


007202 


000207 




1802 








1803 








1804 








1805 








1806 








1807 








1808 








1809 








1810 








1811 








1812 








1813 








1814 









ERROR 


20 


;HRONG HEADERS WERE READ FROM 






;'SEC *'S. ON DOING AN IMPLIED 






;SEEK (RDFMT) FROM 'CYLA' TO 'CYLB 


INC 


RETRY2 


SALLOW 2 TRIES 


CMP 


»2.RETRy2 




BNE 


4S 


>G0 TRY 2ND TIME 


INC 


ERCNT3 


; ALLOW ONLY 12 ERRORS 


BNE 


11* 




JHP 


EXT5 


;IF MORE, EXIT THIS TEST 


TST 


R4 


;GOING WHICH WAY? 


BNE 


121 


J'INAOR' TO 'OUTADR'. BRANCH 






J'OUTADR' TO 'INADR* 


INC 


R4 


{INDICATE THAT NXT TIME GOING 






;FROH 'INADR' TO 'OUTADR' 


ADD 


t40,OUTADR 


{INCREMENT CYCLINDER ADRES 


JMP 


IS 


;G0 BAK i DO IMPLIED SEEK 






JFROH 'INADR' TO 'OOTAOR' 


CLR 


R4 


{INDICATE THAT NXT TIME GOING 






»FROM 'OUTADR' TO 'INADR' 


SUB 


*40.INADR 


{DECREMENT CYLINDER ADRES 


INC 


INDX2 


{DONE ALL 312 FORHARD-BACKHARD 






{SEEK PATTERNS 


BEO 


TST6 


{{IF YES> EXIT 


JMP 


It 


{IF NOT, GO BAK t DO IMPLIED 



{SEEK FROM 'OUTADR' TO 'INADR' 

{THIS SUBROUTINE IS ENTERED AFTER A 'SIN' ERROR OCCURED ON GOING FROM 
S'CYLA* TO 'CYLB' AS INDICATED IN THE ERROR MESSAGE. BEFORE RETRYING THE 
{HEADS HAVE TO BE POSITIONED BACK TO 'CYLA'. NOTE THAT A DRIVE RESET 
{HAS DONE TO CLEAR SIN. 

{R4B0, INDICATES SEEK IS BEING DONE FROM 'OUTADR' CYLINDER TO ' INADR'CYLINDER. 
{R4S1, INDICATES THAT SEEK IS BEING DONE FROM 'INADR' TO 'OUTADR'. 



SBRJI 



3tt 



TST 
BEO 
MOV 
BR 
MOV 
MOV 

TST.RHS 
RTS 



R4 
1« 

INADR, VRKDA 
2« 

OUTADR, fRKDA 
tll,0RKCS 

PC 



{GOING WHICH HAYT 
{IF FROM 'OUTADR' TO 



'IMAOR', BRANCH. 



{CHKHDRS 

{THIS ROUTINE CHECKS THAT THE HEADERS READ PREVIOUSLY HERE CORRECT. 
(IF NOT, THE BAD HEADERS AND THE SECTOR I'S FROM HHICH THEY HERE READ 
{ARE STORED. 
{ON ENTRYl 

{R5 CONTAINS DISK ADDRESS FROM HHERE HEADERS HERE READ. 

{OUTBUF • 12 HEADRERS READ PREVIOUSLY ARE STORED STARTING 'OUTBUf. 

{ON EXITI 

{INDX3»0, IF THE HEADERS HERE CORRECT 
{INDXSal, IF THE HEADERS HERE INCORRECT 

{BUFR • SECTOR «'S GIVING BAD HEADRERS ARE STORED STARTING AT 'BUFR'. 
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SEQ 0051 



1815 
1816 
1817 
181S 
1819 
1830 
1821 
1822 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1843 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1863 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 



rBUFRl - BAD HEADERS FOR THE ABOVE SECTORS ARE STORED STARTING 
>IHE BAD SECTOR TABLE IS TERMINATED BY A '177777' WORD, 



007204 


005000 




CHKH0R8I 


1 CbR 


R0 


{INITIALIZE FOR 14 HDRS 


007306 


013701 


026363 




HOV 


f OUTBUFf Rl 


{INITIELXZE PTR TO HDRS RECVD 


007313 


013703 


001366 




MOV 


«BUFR>R2 


UNITIALIZE PTR TO SECTOR TABLE 


007316 


013703 


001330 




HOV 


*BUFRlrR3 


UNITIALIZE PTR TO BAD HOR TABLE 


007333 


010537 


001130 




HOV 


R5> 8GDADR 




007236 


043737 


160037 


001 130 


BIC 


#1 60037 fIGD ADR 


IGET EXPCTD HEADER 


007334 


005037 


001500 




CLR 


INDX3 


ICLR FLG INDICATING BAD HDRS 


007340 


023711 


001130 


911 


CMP 


IGDADRf <R1 } 


(HEADER 0K7 


007244 


001406 






BEO 


101 


tVEStBRANCH 


007346 


011133 






MOV 


(R1),(R3)+ 


(SAVE BAD HDR 


007350 


010022 






MOV 


R0> CR3) + 


(SAVE BAD SECTR « 


007353 


012712 


177777 




MOV 


#177777, tR2) 


(PUT TERMINATR ON SECTR TABLE 


007356 


005237 


001500 




IHC 


INDX3 


;SET FLG INDICATING BAD HDR 


007363 


005731 




1011 


TST 


(Rl) + 


JINCBHNT PTR TO HXT HDR 


007364 


005300 






IHC 


R0 


(ALL HDRS CHKD7 


007266 


033700 


000014 




CMP 


*14,R0 




007373 


001363 






BNE 


9t 


JlF NOT. LUP BAK 


007374 


000207 






RT8 


PC 




007376 


004737 


016716 


EXTSI 


JSR 


PCrABRT 





I (•»•••••••«««*•••»•••»•*•••••*•••••«•••«•***••••**•«••»•«•••»•*« 

(•TEST 6 WRITE PATTERNS ON THE DISK 

|»IN THIS TEST DIFFERENT PATTERNS ARE WRITTEN ON THE ENTIRE DISK, 1 
I •WORDS (3 SECTORS) ARE WRITTEN AT A TIME. TWO 768 WORDS LONG 
(•BUFFERS HAVE BEEN USED IN THIS TEST, WHILE ONE BUFFER IS 
(•USED TO WRITE ON THE OISKi THE OTHER BUFFER GETS FILLED UP WITH 
(•PATTERNS TO BE USED NEXTl THIS OVERLAPPING IS DONE TO SAVE TIME, 

(•THREE PATTERN>GENCRATOR SUB«ROUTINES ARE USED: 

(•1, PTGEN0 3. PTGBHl 3. PTGEN2 4, PTGEN3 

(•THESE THREE ROUTINES ARE CALLED IN A CYCLIC ORDER( 

(• PTGEN0-PTGEN1-PTGEN3«PTGEN3-PTGEN0-PTGEN1 

(•THE FOLLOWING ORDER IS MAINTAINED IN WRITING BLOCKS (EACH 
(•3 SECTORS LONG) USING ONE OF THE FOUR PATTERN GENERATORS! 



(•CYL 


SECTORS 


CYL 




SECTORS 


CYL 




SECTORS 


CYL 


SECTORS 


(• SUR 




ROUTINE 




SUR 




ROUTINE 




SUR 




ROUTINE 




SUR ROUTI 


(•0 


0-3 


PT6EN0 








6>10 


PTGENl 








3-5 


PTGEN3 





11-13 PTGEH3 


(• 1 


0.2 


PTGEH0 





1 


6-10 


PTGENl 





1 


3-5 


PTGEN2 





1 11-13 PTGEN3 


(» 1 


0=2 


PTGEN8 







S-10 


PTGENl 







3-5 


PTGEN2 




3 11-13 PTGEN3 


(• 1 1 


0-2 


PTGEN0 


I 


1 


6-10 


PTGENl 


i 


1 


3-5 


PTGEN2 


1 


1 11-13 PTGEN3 


(•2 


0-2 


PTGEN0 


2 


.0 


6-10 


PTGENl 


2 





3-5 


PTGEN2 


2 


11-13 PTGEN3 


(•ETCi ETC 

























(•THE ABOVE SHOWN STAGGERING (OF SECTORS TO BE WRITTEN] IS DONE TO 
(•SAVE ONE REV (40MS) EVERY TIME A BLOCK (3 SECTORS) IS WRITTEN. 
(•IF YOU WANT TO USE BUFFERS STARTING AT SOME OTHER MEMORY ADDRESS 
(•HAKE THE FOLLOWING CHANGESI 

(•CHANGE 'PBUF0' TO STARTING ADDRESS OF THE FIRST 768 WORDS LONG BUFFER. 
(•CHANGE 'PBUFl' TO STARTING ADDRESS OF SECOND 768 WORDS LONG BUFFER, 
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1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1893 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1930 
1931 
1933 
1933 
1934 
1939 
1936 



007303 
007304 
007313 
007330 
007336 
007333 



007414 
007416 



000004 

013737 
013737 
013737 
005037 
005037 



(•IF YOU WANT TO WRITE YOUR OWH PATTERNS USING PATTERN GENERATOR •pTGEN0' 
(•CHANGE 'PTRN01' AND •pTRN02' TO THE PATTERNS YOU WANT, 

(•TO WRITE THE SAME TWO (OR ONE) PATTERNS ON THE ENTIRE DISK CHANCE 
(•LOCATION 'PATl' TO 'PTGEN0' THE STARTING ADDRESS OF PAT-GENERATOR 
(•LOCATION *PAT2' TO 'PTGEN0' THE STARTING ADDRES OF PAT-GENERATOR 
(•LOCATION 'PAT3' TO 'PTGEN0' THE STARTING ADDRESS OF PAT-GENERAISR 

; I ••*«**••«•«••«•*•*••••••••••••••••••••••••••••••••••••••••••••• 

T8T6t SCOPE 



177764 001504 
177764 001506 
177152 001474 
001410 
001413 



007336 


013737 


001230 


007344 


013737 


001414 


007353 


004737 


007770 


007356 


017737 


172042 


007364 


004777 


172040 


007370 


005005 




007372 


005737 


001410 


007376 


100407 




007400 


013737 


001406 


007406 


053737 


000200 



000406 

013737 



181 
381 



001404 001434 31! 



MOV 
MOV 
HOV 
CLR 
CLR 



MOV 
MOV 

JSR 
MOV 
JSR 

CLR 
TST 
BMI 
HOV 

BIS 



*-14,ERCNTl 

«-14,ERCNT3 

*-636,INDXl 

BUFLG0 

BUFLGl 



DRIVAD#DSKADR 
tPAT0,PR8PAT 

PCGETBUF 

•PRSPATfPGSUBR 

PC«8PGSUBR 

R5 

BUFLG0 
3* 

PBUFl, BUSADR 
IBIT7, BUFLGl 



PBUF0,BUSADR 



(SET COUNT FOR 313X3 TRACKS 
;CLR FLAG FOR BUFR 
(CLR FLAG FOR BUFR 1 
(BIT 7 OF ABOVE FLAGS WHEN SET 
(INDICATES, THAT BUFR TO BE USED 
(FOR WRITING ON DSK 
(GET DRIVE *, DISK AORES 
(INITIALIZE PTR TO THE FIRST 
(PATRN GENERATOR 



(GO GENERATE PATRNS FOR 

;3 SECTOR (400X3) 

(INITIALIZE COUNT FOR 4 BLOCKS 

(FIND OUT WHICH BUFR TO USE 

(FOR WRITING ON DSK 

(USE 'lOBUFl' FOR TRANSFER 

;0R THE ONE INDICATED BY THE USER 

(SET FLAG TO INDICATE THAT 

(WRTING ON DSK WILL B DONE FROM 

(THIS BUFR (BUF 1) 



(USE 'IOBUF0' FOR TRANSFER 

(OR THE ONE INDICATED BY THE USER 



007434 


093737 


000200 


001410 




BIS 


»BIT7,BUFLG0 


(INDICATE THAT 'IOBUF0' WILL 
(B USED FOR WRTING ON DISK 


007433 


013737 


007440 


001110 


1381 


MOV 


t4l,ILPERR 




007440 


013777 


001433 


173016 


481 


MOV 


DSKADR,*RKDA 


(SET RKDA 


007446 


013777 


0014)4 


173006 




HOV 


BUSADR,0RKBA 




007454 


013777 


176400 


171776 




HOV 


*-1400,BRKHC 




007463 


013777 


000003 


171766 




MOV 


*3,8RKCS 


(WRITE THE 4 SECTORS ON 
(DISK 


007470 


013737 


001434 


001436 




MOV 


PRSPAT,NXTPAT 


(WHILE THE PATRNS R BEING WRITTEN 


007476 


033737 


001434 


001433 




CMP 


PRSPAT,tPAT3 


(GO GENERATE THE NXT PATRNS 


007504 


001004 








BNE 


SI 


(TO B WRITTEN 


007906 


013737 


001414 


001436 




HOV 


tPAT0,MXTPAT 


(KEEP GENERATING PATRNS IN THIS 


007914 


000403 








BR 


6* 


(WAY "PAT0"-"PAT1"-"PAT2«-"PAT3"-"PAT0"- 


007516 


063737 


000003 


001436 


511 


ADD 


*3,NXTPAT 




007534 


0047)7 


007770 




6(( 


JSR 


PCGETBUF 




007530 


0177)7 


171673 


001430 




MOV 


8NXIPAT,P68UBR 




007536 


004777 


171666 






JSR 


PCtPGSUBR 


(GO GENERATE THESE PATRNS. 
((3 X 400) WORDS 


007543 


104421 








CON, 


,RDY 
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SE8 0033 



1927 


007544 


032777 


1 40000 


171704 




BIT 


I140000«»RKCS 




(ANY ERROR? 


1928 


007552 


001 41 1 








BEQ 


121 




(GET RKCS>ERrOS>DA 


1929 


007554 


004737 


01 6106 






JSR 


PC.GT4RG 






1 930 


007560 


104021 








ERROR 


21 




{ERROR ON DOING WRITE 


1931 


007562 


104415 








CON. RESET 




ICLEAR IT 


1932 


007564 


005237 


001504 






INC 


ERCNTl 




rALLOW 12 ERRORS AT HOST 


1933 


007S70 


001002 








BNE 


12t 






1934 


007572 


0001 37 


010356 






JHP 


EXT5 




>IF MORE» EXIT 


1935 


007576 


032777 


001000 


171646 


12t 1 


BIT 


»BIT9,»RKDS 




jSINf ON DOING WRITE? 


1936 




001 412 








BEQ 


7» 






1937 


007606 


004737 


016106 






JSR 


PC,GT4RG 






1938 


007612 


104022 








ERROR 


22 




;SIN ERROR ON DOING WRITE 


1939 


0076 1 4 


104415 








CON. RESET 








007 6 1 6 


10441 6 








DRV. RESET 






1941 


007620 


005237 


001506 






INC 


ERCNT2 




JALLOW 12 ERRORS AT MOST 


1942 


007624 


001002 








BNE 


71 








007626 


0001 37 








JMP 


GXT6 






1944 


















9FIGURK OUT WHICH BUFFER IS 




















; AVAILABLE FOR USE 


1946 


007632 


105737 


001 410 




lit 


TSTB 


BlTFLGv 




;WAS PREVIOUS DSK-WRITE DONE 


1947 


007636 


100003 










8$ 




(USING BUFR 0? 


1948 


007640 


005037 


001 410 






CLR 


BUFliG0 




;YESi CLR FLAG INDICATING IT'S 


1949 


















(AVAILABLE NOW 


1 950 


007644 


000402 
















1951 


007646 


005037 


001 412 




8$t 


rr R 






(CLR FLAG INDICATING BUFRl 


J. 95 2 


















(IS AVAILABLE NOW 


1953 


007652 


013737 


001 426 


001424 


9Sl 


HOV 


NXTPAT.PRSPAT 




{'PRSPAT'S PATRNS WILL BE USED 


1 954 


















(ON NEXT WRITE 


1 955 


007660 


010500 








MOV 


RS>R0 




(FORM SEC # TO BE USED NXT TIME 


1 956 


007662 


1 1 6000 


010352 






MOVB 


SECPTR(R0)»R0 




(GET SEC * 


1 957 


U<9 r OOD 


042737 


www 1 / 


001 432 


10$l 


BIC 


#17,05KA0R 




(MASK SECTOR BITS FROM DSK'ADRES 


1953 


007674 


050037 


001 432 






BIS 


R0>DSKADR 




(FORM NXT DSK-ADRES 


1 959 












INC 


R5 




(DONE WITH 12 SECTRS C3 BLOCKS)? 




100 live 


022705 


wwwwwt 






CHP 


t4,R5 






1961 


007706 


001231 








BNE 


2« 




(ON THIS SURFACE? IF NOT» GO 


1 962 


















(DO NXT 4 SECTRS 


1963 


0077 10 


0327 37 


w www 1 


001 474 




BIT 


»BIT0,INDX1 




(WHICH SURFACE WAS DONEr OR 1? 


1964 


007716 


001 415 








BEQ 


11$ 




(IF 0f GO DO SURFACE 1 


1965 


007720 


005237 


001474 






INC 


INDXl 




(COUNT « OF TRACKS 


1966 


007724 


001002 








BNE 


.+6 






1967 


007726 


000137 


010362 






JMP 


TST7 




(EXIT IF DONE 


1968 


007732 


042737 


000020 


001432 




BIC 


*20,DSKADR 




(GO TO SUR 0» NEXT CYLINDER 


1969 


007740 


062737 


000040 


001432 




ADD 


*40,DSKADR 






1970 


007746 


0001 37 


007370 






JHP 


1$ 




(GO BACK AND DO WRITE 


1971 


007752 


005237 


001474 




lit: 


INC 


INDXl 




(COUNT # OF TRACKS 






052737 


wwww^w 


001432 




BIS 


t20>DSKADR 




■SET BIT FOR SUR 1 


1973 


007764 


0001 37 


007370 






JMP 


1$ 




(GOr WRITE PATRNS ON SURFACE 1 


1974 










J*OET 


BUF* 








1975 










J»THIS 


1 ROUTINE 


FINDS OUT WHICH 


BUFFER (IOBUF0, lOBUFl) OR ONE OF 


1976 










»»THE 


TWO BUFFERS SELECTED BY 


THE USER) TO USE 


1977 










;»FOR 


GENERATING PATTERNS. THEN 


IT SETS UP A FLAG INDICATING THAT 


1978 










>»BUrFER HAS TO 


BE FILLED UP. 


THE STARTING ADDRESS OF THE 


1979 










j«BUrFER IS STORED IN *BUF i', 






1980 




















1981 


007770 


005737 


001410 




GETBUF! TST 


BUFt.G0 




(BUFR AVAILABLE FOR USE? 


1982 


007774 


100087 








BPL 


11 




(YES, BRANCH 
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1983 


007776 


052737 


100000 


001412 




BIS 


»BIT1S,BUFLG1 


(NO, USE BUFR 1, INDICATE SO, 


1984 


010004 


013737 


001406 


001446 




MOV 


PBUrl»BUFNO 


{SAVE STARTING AORES OF BUFRl 


1985 


010012 


000207 








RTS 


PC 




1986 


010014 


052737 


100000 


001410 


lit 


BIS 


*BIT15,BUFLG0 


(INDICATED, USING BUF 


1987 


010022 


013737 


001404 


001446 




MOV 


P8UF0,BUFNO 


(SAVE STARTING ADRES OF BUFR 


1988 


010030 


000207 








RTS 


PC 


(RETURN 


1989 










(•PTGEN0 






1990 










{•THIS 


ROUTINE 


GENERATES A 768 


(3X256) WORDS LONG 


1991 










(•BUFFER CONTAINING THE FOLLOWING PATTERNS 


1992 










(•FIRST 


BLOCK 


OF 256 WORDS: 


125252 


1993 










(•SECOND BLOCK 


OF 256 words: 


052525 (COMPLEMENT OF ABOVE) 


1994 










(•THIRD 


BLOCK 


OF 256 WORDS: 


010421 


1995 










{•YOU CAN USE 


ANY OTHER PATTERN/S C& ITS COMPLEMENT) 


1996 










(•MAKING THE CHANGES IN THE 2 LOCATIONS SHOWN BELOW. 


1997 


















1998 


010032 


013700 


001446 




PTGEN0t 


HOV 


BUFNO>R0 


(GET STARTING ADRES OF 


1999 


010036 


013701 


010110 






HOV 


PTRN01,R1 


(GET PATRN TO BE GENERATED 


2000 


010042 


012702 


177400 






MOV 


••400, R2 


{IN THE FIRST 400 WORD BLOCK 


2001 


















2002 


010046 


010120 






1$: 


HOV 


RUCR0) + 


(GENERATE THE FIRST BLOCK 


2003 


010050 


005202 








INC 


R2 


(WITH 'PAT01' PATRN 


2004 


010052 


001375 








BNE 


1$ 


(ALL DONE? 


2005 


















2006 


010054 


012702 


177400 






MOV 


•-400, R2 




2007 


010060 


005101 








COM 


Rl 


(COMPLEMENT 'PAT01' PATAN 


2008 


010062 


010120 






2(( 


MOV 


Rl,(R0)'f 


(GENERATE 2ND BLOCK WITH 


2009 


010064 


005202 








INC 


R2 


{•PAT01'S COMPLEMENT PATRN 


2010 


010066 


001375 








BNE 


2$ 


(ALL DONE? 


2011 


010070 


012702 


177400 






HOV 


*-400,R2 




2012 


010074 


013701 


010112 






HOV 


PTRN02,R1 


(GET PATRN TO BE GENERATED 


2013 
















(FOR 3RD BLOCK 


2014 


010100 


010120 






3tl 


MOV 


Rl, CR0)+ 


(GENERATE 3RD BLOCK USING 


2015 
















{'PAT02' PATRN 


2016 


010102 


005202 








INC 


R2 




2017 


010104 


001375 








BNE 


31 


(ALL DONE? 


2018 


















2019 


010106 


000207 








RTS 


PC 


{RETURN 


2020 


















2021 


010110 


125252 






PTRN01 < 


125252 




(CHANGE THESE LOCATIONS IP 


2022 


010112 


010421 






PTRN02I 


010421 




(YOU WANT ANY OTHER PATTERNS 


2023 


















2024 










(•PTGENl 






2025 










(•THIS 


ROUTINE 


GENERATES A 768 


(3X256) WORDS 


2026 










(•LONG 


BUFFER 


CONTAINING THE FOLLOWING PATTERNS: 


2027 


















2028 










{♦FIRST 


BLOCK- 


256 WORDS 000001 


FILL I'S 


2029 










(♦ 




000003 




2030 










(• 








2031 










(• 




177777 




2032 


















2033 










(•SECOND BLOCK 


177776 


FILL 0'S 


2034 










(• 




177774 




2035 










(♦ 




1 




2036 










(• 




000000 




2037 


















2038 










(•THIRD 


BLOCK 


000001 


FLOAT A 1 
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SEQ 0055 



3039 
2040 
2041 
2042 
2043 
3044 
2045 



2078 
2079 
20S0 
2081 
20R2 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
3090 
3091 
2093 
3093 
3094 



;»'BUrNO' CONTAINS THE STARIIH8 ADDRESS OF THE 

»*BurrER. 



2046 




012703 


000001 


PTGEN] 1 


MOV 


#1 rR3 


(INITIALIZE PATRNS 


2047 


010 120 


01 2704 


177776 




HOV 


*i77776>R4 




2048 




01 3700 


001446 




HOV 


BUPNOf R0 


jGET STARTING ADRE8 


3049 




01 2702 


177760 






#*20r R2 


y SET COUNT 


2050 




010301 




1 1 1 


HOV 


R3>R1 


(INITIALIZE PATRN 


3051 


010136 


010120 




3$ t 


HOV 


Rl r CR0 ) + 


(GENERATE THE FIRST 


3052 


0101 40 


00026 1 






SEC 




(BLOCK USING "FILL I'S" 




010143 


006101 






ROL 


Rl 




2054 


010 144 


103374 






BCC 


3( 








005302 






INC 


R2 




2056 




001 37 1 






BNE 


1 ( 


(ALL DONE? 


2057 


















010153 


012703 


177760 




MOV 


#>20rR2 






010156 


010401 




311 


HOV 


P4rRl 


(INITIALIZE PATRN 


2060 


010160 


0101 30 




41 1 


MOV 


Rl « (R0} + 


(GENERATE 2ND BLOCK 


306 1 


010162 


000341 






etc 




(USING "FILL 0'8" 


2062 


010164 


006101 






ROL 


Rl 






aim ftA 


103774 






BCS 


4t 




2064 


010170 


005303 






INC 


R2 




2065 


010173 


001371 






BNE 


3« 


(DONE? 


2066 
















2067 


010174 


012702 


177760 




HOV 


#•20, R3 


(SET COUNT 


3068 


010200 


010301 




5(1 


MOV 


R3,R1 


(INITIALIZE PATRN 


3069 


010202 


010130 




6IS 


MOV 


R1((R0]')' 


(GENERATE THE 3RD BLOCK 


3070 


010204 


006301 






ASL 


Rl 


(USING "FLOAT A 1" 


3071 


010206 


103375 






BCC 


6« 




3072 


010210 


005303 






INC 


R3 




2073 


010313 


001373 






BNE 


5« 


(DONE? 


2074 


010314 


000207 






RTS 


PC 


(RETURN 


2075 
















2076 








;«PTGEH2 






2077 








J»THIS 


ROUTINE 


GENERATES A 768 


C3X256} WORDS LONG 



(VBUFfER CONTAINING THE FOLLOWING PATTERNS! 



(•FIRST BL0CK-2S6 WORDS 000000 



(• 
(• 

(• 

(•SECOND BLOCK 

(• 

(• 

(• 

(• 

(•THIRD BLOCK 

(• 

(• 



000001 
000002 



000000 
000400 
001000 



000000 
000401 



COUNT PATRN-LOWER BYTE 
0-377 



COUNT PATRN-HIGHER BYTE 
0-377 



COUNT PATRN-HIGHER 
0-377, 0-377 



LOWER BYTE 



MAINOEC-ll-DZRKL-D MACYll 27(1« 

nZRKLD.Pll 31-AUG-76 15l35 



96) 04-OCT-76 14(36 PAGE 40 

T6 WRITE PATTERNS ON THE DISK 



3095 








(• 




177777 




3096 
















3097 








(•♦BUFNO' CONTAINS THE STARTING 


ADDRESS OF THE BUFFER. 


3098 
















3099 


010216 


005001 




PTGEN2! 


CLR 


Rl 


(INITIALIZE PATRN 


2100 
3101 


010220 


013700 


001446 




HOV 


BUFNO, R0 




3103 


010334 


010130 




Ill 


HOV 


Rl, CR0)+ 


(GENERATE 1ST BLOCK USING 


3103 


010236 


105301 






INCB 


Rl 


(USING 'COUNT UP LOWER BYTE' 


3104 


010330 


001375 






BNE 


If 


(DONE? 


3105 
















3106 


010332 


005001 






CLR 


Rl 




3107 


010334 


010130 




2tl 


HOV 


Rl, CR0)+ 


(GENERATE 2ND BLOCK 


3108 


010336 


063701 


000400 




ADD 


t400,Rl 


(USING 'COUNT UP HIGHER BYTE* 


2109 


010343 


103374 






BCC 


2« 


(DONE? 


2110 


010344 


005001 






CLR 


Rl 




2111 


010346 


010130 




311 


MOV 


Rl, CR0)+ 


(GENERATE 3RD BLOCK USING 


3112 


0102S0 


063701 


000401 




ADD 


«401,R1 


('COUNT UP HIGHER ( LOWER BYTE 


3113 


010354 


103374 






BCC 


3i 


(ALL DONE? 


3114 


010356 


000307 






RTS 


PC 


(RETURN 


3115 
















3116 
















3117 








(PTGEN3 








3118 








(•THIS 


ROUTI»E 


GENERATES A 768 


(3X256) WORDS LONG 


3119 








(•BUFFER CONTAINING THE FOLLOWING PATTERNSI 


3130 
3131 








(•FIRST 


BLOCK 


OF 256 WORDSI 


167356 (COMPLEMENT OF 010421) 


3133 
















3133 








(•SECOND BLOCK 


177776 


FLOAT A 


3134 








(• 




177775 




3135 








(• 




1 




3136 








(• 




077777 




3137 
















3138 








(•THIRD 


BLOCK 


000377 


COUNT UP HIGHER BYTE 0-377 


3139 








(• 




000776 


COUNT DOWN LOWER BYTE 377-0 


3130 








(• 




! 




3131 








(• 




177400 




2132 
















2133 








(•'BUFNO' CONTAINS THE STARTING 


ADDRESS OF THE BUFFER. 


2134 
















2135 


010260 


013700 


001446 


PTGEN3I 


HOV 


BUFNO, R0 




3136 


010364 


013703 


177400 




HOV 


*-400,R3 




2137 


010270 


013701 


010112 




HOV 


PTRN02,R1 


(GET PATTERN 


3138 


010274 


005101 






COM 


Rl 


(COMPLEMENT 'PAT02' PATRN 


3139 


010376 


010130 




4tl 


HOV 


RlfCRBJ'f 


(GENERATE 1ST BLOCK 


3140 


010300 


005302 






INC 


R2 




3141 


010302 


001375 






BNE 


4t 


(ALL DONE? 


3142 
















3143 














(2ND BLOCK 


3144 


010304 


012702 


177760 




HOV 


*-20,R2 




3145 


010310 


000261 




711 


SEC 






2146 


010312 


012701 


177776 




MOV 


#177776, Rl 




2147 


010316 


010120 




8tt 


MOV 


Rli CR0}« 




2148 


010320 


006101 






ROL 


Rl 




2149 


010322 


103775 






BCS 


II 




2150 


010334 


005302 






INC 


R2 
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SEQ 0057 



2151 


010326 


001370 




BNE 


71 


{ALL DONE? 


2152 














2153 












>3RD BLOCK 


2154 


010330 


012701 


000377 


MOV 


»377,R1 




2155 


010334 


010102 




MOV 


Rlf R2 


tGENERATC 3RD BLOCK USING 


2156 


010336 


010120 




9tl MOV 


Rl>CR0)f 


•'COUNT DOWN LOWER BYTE* 


2157 


010340 


060201 




ADD 


R2«R1 


J 'COUNT UP HIGHER BYTE' 


2158 


010342 


022701 


177777 


CMP 


i-l,Rl 




2159 


010346 


001373 




BNE 


9« 


Iklh D0NE7 


2160 


010350 


000207 




RTS 


PC' 


{RETURN 



2162 {SECTOR POINTER TABLE. DATA TRANSFERS ARE DONE IN BLOCKS (3 SECTORS 

2163 fEACH) IN THE CYCLIC ORDERJ 0-2, 6-10, 3-5, 11-13, 0-2, AND SO ON. 

2164 010352 006 SECPTRl .BYTE 6 

2165 010353 003 .BYTE 3 

2166 010354 011 .BYTE 11 

2167 010355 000 .BYTE 
2168 

2169 010356 004737 016716 EXT6t JSR PCABRT 

2170 

2171 

2172 ; {•••••«•••«•*«•»»•••«•••*•••«*»••••*••«««••*••••«»•«••*•*»•••••» 

2173 »»TEST 7 READ, SOFTWARE COMPARE, WRITE CHECK OF THE PATTERNS 
2174 

2175 f»»»»TEST 6 (WRITING PATTERNS ON DISK) SHOULD BE DONE BEFORE DOIN««»»» 

2176 J ••♦•THIS TEST.»*^» 
2177 

2178 >»IN THIS TEST THE PATTERNS THAT WERE WRITTEN BEFORE (IN THE 

2179 J»PREVI00S TEST) ARE READ BACK AND SOFTWARE COMPARED. 

2180 ;*WHILE THE SOFTWARE COMPARISON IS TAKING PLACE, AN OVERLAPPING 

2181 |*'HRITE CHECK' IS DONE FOR THE SAME BLOCK. THE READING 

2182 l»BACK OF EACH BLOCK (4 SECTORS) IS DONE IN THE SAME 

2183 :»MANNER AS DESCRIBED IN THE BEGINNING OF PREVIOUS TEST. 

2184 ; •OVERLAPPING OPERATIONS AND STAGGERING OF BLOCKS ARE DONE IN 

2185 !*A SINILIAR MANNER. 

2186 f^THE FOLLOWING IS A DESCRIPTION OF HOW ERRORS ARE HANDLED. 

2187 >»IF A 'SIN* OR 'HE' OCCURS IT IS REPORTED AND THAT BLOCK 

2188 >*IS SKIPPED. IN THIS STAGE OF TESTING THESE ERRORS SHOULD NOT 

2189 |»NORMALLY OCCUR. 

2190 {•IF A CHECKSUM ERROR OCCURS, CONTROL IS TRANSFERRED TO 

2191 J»'CSERR0R'. FIRST THE CSE IS REPORTED. THE SECTOR GIVING 

2192 ;*CSE IS READ AGAIN. IN ALL 3 TRIES ARE DONE. IF STILL 

2193 {•THE ERROR PRE8ISTS THAT SECTOR IS ABORTED AND THE REST 

2194 {•OF THE SECTORS ARE READ AND CHECKED FOR CSE. IF 

2195 {•AGAIN SOME OTHER SECTOR GIVES CSE# REPORTING AND RETRIES 

2196 {^ARE DONE AGAIN. 

2197 (•NEXT SOFTWARE COMPARISON IS DONE OF THE DATA THAT WAS 

2198 (»READ BACK, ON GETTING A DATA MISCOMPARISON 

2199 {tTHE, RELEVANT INFOCGOOO DATA, BAD DATA, ADDRESS ETC.) IS 

2200 {•STORED, AFTER THE WHOLE BLOCK HAS BEEN CHECKED, THE DATA 

2201 {•ERROR/S IS/ARE REPORTED. THEN THE BLOCK IS READ AGAIN. IN ALL 

2202 {•THREE TRIES ARE DONE. 

2203 {•WHILE THE DATA COMPARISON (SOFTWARE) IS GOING ON THE 'WRITE 

2204 {•CHECK' IS ALSO IN PROGRESS. IF A WRITE CHECK ERROR OCCURS THE 

2205 t*CONTROL IS TRANSFERRED TO 'HCEROR'. WRITE CHECK OF THE SECTOR 

2206 {»THAT GAVE WCE IS DONE AGAIN. IN ALL THREE TRIES ARE DONE. 
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2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 



(•NOTE THAT EVERY WCE IS REPORTED. IF ALL THE 4 SECTOR OF 
{•A BLOCK GAVE WCE'S, ALL 4 WILL BE REPORTED AND RETRIED. 

{•DEPENDING ON THE NATURE OF THE PROBLEM, THE ABOVE ERRORS 
{•CAN OCCUR IN ANY COMBINATION. IT IS RECOMMENDED THAT ALL 
{•THE ERROR MESSAGE BE CAREFULLY CO-RELATED AND EXAMINED. IT 
{•WILL PROVIDE A DEEP INSIGHT INTO THE PROBLEM. 
•{••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 



010362 


000004 






TST7I SCOPE 






010364 


012737 


177764 


001510 


MOV 


*-14,ERCNT3 


(ALLOW 12 ERRORS AT THE HOST 


010372 


012737 


177773 


001512 


MOV 


»-5,ERCNT4 


(ALLOW 5 ERRORS AT THE MOST 


010400 


012737 


177742 


001514 


MOV 


l-36,ERCNTS 


(ALLOW 10 ERRORS AT THE MOST 


010406 


012737 


177742 


001516 


MOV 


»-J6,ERCNT6 


(ALLOW 10 ERRORS AT THE HOST 


010414 


012737 


177764 


001520 


MOV 


*-14,ERCNT7 


{ALLOW 12 ERRORS AT THE MOST 


010422 


012737 


177742 


001522 


MOV 


t-36,ERCNT8 


(ALLOW 10 ERRORS AT THE HOST 


010430 


012737 


177152 


001474 


MOV 


t-626,INDXl 


(SET COUNT FOR 626 TRACKS 


010436 


005037 


001476 




CLR 


INDX2 


(CLR COUNT FOR 4 BLOCKS ON A TRACK 


010442 


012737 


001414 


001424 


MOV 


#PAT0,PRSPAT 


(INITLZE PTR TO PATRN GENRTR 


010450 


013737 


001230 


001450 


MOV 


DRIVAD,ADRES 


(INITLZE DRV*,ADRES 


010456 


005037 


001504 




BEGINS CLR 


ERCNTl 


(IF > 0, MEANS THAT RETRIES 


010462 


005037 


001506 




CLR 


ERCNT2 


(DONE AFTER CSE OR CSC CHKD 


010466 


012737 


177775 


001252 


MOV 


#-3,RETRYl 


(RETRY COUNT FOR CSE 


010474 


012737 


177776 


001254 


MOV 


#-2,RETRY2 


(RETRY COUNT FOR SFTWRE HISCMP'N 


010502 


012737 


000003 


001256 


MOV 


»3,RETRY3 


{RETRY COUNT FOR WCE 


010510 


013737 


001450 


001440 


MOV 


ADRES,WOSKAO 


(DISK ADRES TO WRT CHK WITH 


010516 


013737 


001406 


001442 


MOV 


PBUFliHBUSAD 


(USE THIS BUFR 1 TO WRT CHK 














(OR THE BUFR INDICATED BY THE USER 


010524 


012737 


176400 


001444 


MOV 


*-1400,WWROCN 


(WRT CHK 1 BLOCK>3SECS*1400 WRDS 


010532 


013737 


001450 


001432 


READI MOV 


AORESiDSKADR 


{DISK ADRES TO READ FROM 


010540 


012737 


176400 


001436 


MOV 


t-1400,HROCHT 


{1 BLOCK ■ 3 SECTORS ■ 1400 WRDS 


010546 


013737 


001404 


001434 


MOV 


P6UF0,BUSAOR 


(USE •IOBUF0' TO READ INTO 














(OR THE BUFR INDICATED BY THE USER 


0105S4 


000404 






BR 


RDAGAIN 




010556 


104415 






LUP8INS CON. RESET 




0I0S60 


104416 






DRV. RESET 




010562 


000401 






BR 


RDAGAIN 




010S64 


134415 






LUPHE! CON. RESET 




010566 


013777 


001432 


170670 


RDAGAINt 


MOV DSKADR 


•RKDA {READ FROM THIS DSK-ADRES 


010574 


013777 


001436 


1706S6 


MOV 


WRDCNT,»RKHC 


(THIS 1 OF WORDS 


010602 


013777 


001434 


170652 


MOV 


BU8ADR,IRKBA 


(INTO THIS BUFR 


010610 


012777 


000405 


170640 


MOV 


«405,»RKCS 


{READ,SSE,GO 


010616 


013737 


001406 


001446 


HOV 


PBUFlfBUFNO 


(SET UP STARTING ADRES 


010624 


017737 


170574 


001430 


MOV 


»PRSPAT,PCSUBR 




010632 


004777 


170572 




JSR 


PC,«PGSUBR 


(60 GENERATE A BUFFER 
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SEQ ees9 



2263 
















■ mr ( Aaa UADnB llfiTMA TUT A 


2264 
















IPATRN GENRATR 


2265 


















2266 


010636 


104421 








CON « RDY 




IDONE WXXn rAlKn wtnninu. 


2267 
















• uKTw vno nu<i> Dnv Tts APT 
,NAiT rOK t"* KUI Iv Obi 


3268 
















1 IrRQn PKCiVXuUo K&Av/ 


2269 


















2270 
















ICNT ROY SET 


2271 


010640 


032777 


040000 


170610 




BIT 


*BIT14,0RKC« 


1 HARD ERROR? 


2272 


010646 


001416 








BBS 


NONE 




2273 


















2274 


0106S0 


012737 


010564 


001 110 




MOV 


fLUPHErlLPERR 




2275 


010656 


004737 


016140 






JSR 


PC, SET INF 




2276 


010662 


104023 








ERROR 


23 


IHARO ERROR 


2277 


010664 


104415 








CON. RESET 




2278 


010666 


005237 


001510 






INC 


ERCNT3 


t ALLOW 12 ERRORS AT MOST 


2279 


010672 


001002 








BNE 


11 




2280 


010674 


000137 


012114 






JMP 


EXT7 


;IF MORE, EXIT 


2291 


010700 


000137 


011436 




ttl 


JMP 


FINISH 




2282 


010704 


032777 


001000 


170540 


NOHEi 


BIT 


*BIT9,0RKDS 


ISIN SET? 


2283 


010712 


001417 








BEO 


NOSIN 


1 NO 


2284 


















2295 


010714 


012737 


010556 


001 1 10 




MOV 


iLUPSIHrlLPBRR 




2286 


010722 


004737 


016140 






JSR 


PC, GET INF 




2287 


010726 


10401 1 








ERROR 


11 


ISIN ON READ 


2288 


010730 


104415 








CON. RESET 




2289 


010732 


104416 








DRV. RESET 




2290 


010734 


005237 


001512 






INC 


ERCNT4 


1 ALLOW 5 ERRORS AT MOST 


2291 


010740 


001002 








BNE 


11 




2292 


010742 


0001 37 


012114 






JMP 


EXT7 


J Ir nunc, bAXT 


2293 


010746 


000137 


01 1436 




111 


JMP 


FINISH 




2294 


















2295 


010752 


005737 


001504 




Nosim 


1ST 


ERCNTl 


{CHECKING CSE FOR 1ST TIME 


2296 


010756 


001031 








BNE 


HRTCHK 


1 NO, BRANCH 


2297 


010760 


005237 


001504 






INC 


ERCNTl 


; INDICATE THAT CSE HAS BEEN 


2298 
















ICHECKED ONCE 


2299 


















2300 


010764 


032777 


000002 


170462 




BIT 


*BIT1,IRKER 


1 CHECK SUM ERORi 


2301 


010772 


001423 








BEO 


HRTCHK 




2302 


010774 


012737 


010456 


001 1 1 




MOV 


«BEGIN,tLPERR 




2303 


01 1002 


004737 


1 6 1 40 






JSR 


PCOETINF 




2304 


011006 


013737 


001252 


001202 




MOV 


RETRY1,IREG10 


IGET THE RETRY * 


2305 


011014 


062737 


000004 


001202 




ADD 


*4,IREG10 


(SAVE IT FOR TYPEOUT 


2306 


01 1022 


104024 








ERROR 


24 


ICSE 


2307 


011024 


005237 


001514 






INC 


ERCNT5 


1 ALLOW 10 ERRORS AT HOST 


2388 


01 1338 


001002 








BNE 


it 




2309 


011032 


000137 


012114 






JMP 


EXT7 


TiF MORE, EXIT 


2310 


01 1036 


000137 


01 1600 




111 


JMP 


C8ER0R 


;G0, SERVICE CSE 


2311 
2312 


01 1042 


005037 


001506 




HRTCHK 1 


CtR 


GRCNT2 


JCwtf r LAV, XftDiuAtXHu auf^lnAnL 


2313 
















; COMPARE DONE 


2314 


011046 


022737 


000003 


001256 




CMP 


*3,RETRy3 


IHRT CHK DONE BEFORE OR 


2315 


011054 


001016 








BNE 


SFTCMP 


Ill's 1ST TIME? 


2316 
















IIF DONE, BRANCH OTHERWISE DO IT 


2317 


011056 


013777 


001440 


170400 


MCACAIN 


MOV 


HDSKAD,|iRKDA 


IHRT CHK FROH THIS DSK>ADRCS 


2318 


011064 


013777 


001444 


170366 




MOV 


WHRDCN.fRKHC 


ITHIS * FO WORDS 
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2319 


011072 


013777 


001442 


170362 




MOV 


HBU8AD,«RKBA 


JHITH THIS BUFFER 


2320 


















2321 


011100 


012777 


000407 


170350 




MOV 


l407,iRKCS 


IWRT CHK,GO,SSE 


2322 


















2323 


011106 


005337 


001256 






DEC 


RETRY3 


1 INDICATE HRT CHK DONE 


2324 
2325 


011112 


005737 


001506 




SFTCHPI 


TST 


ERCNT2 


ISFTWARE CMPARE DONE ONCE BEFORET 


2326 


011116 


001060 








BNE 


WCREPT 


IIF SFTWARE CMPARE HAS BEEN DONE 


2327 
















lONCE DON'T DO IT AGAIN. OTHERWISE, 


2328 


011120 


005237 


001506 






IHC 


ERCHT2 


IDO IT. INDICATE IT IS DONE, 


2329 
















IMORE THAN ONCE BEFORE. 


2330 
















IIF THIS IS 1ST TIME THRU t 


2331 
















IHRT CHK HAS DONE ONCE BEFORE 


2332 
















|D0 SOFTWARE COMPARISON OF 


2333 
















ITHE DATA THAT HAS READ FROM 


2334 
















ITHE DISK 


2335 


















2336 


011124 


012702 


001266 






MOV 


iBUFR,R2 


IINITLZE PTR TO BUFR STORING 


2337 
















lADRES OF BAD DATA 


2338 


011130 


012703 


001320 






MOV 


tBUFRl,R3 


; STORE EXPCTD DATA STARTING HERE 


2339 


011134 


012704 


001352 






MOV 


*BUFR3,R4 


1 STORE RECVD (BAD) DATA 


2340 
















{STARTING HERE 


2341 


















2342 


011140 


005037 


001500 






CLR 


INDX3 


ICLR FLAG INDICATING HISCMPRE 


2343 
2344 


011144 


013700 


001404 




COHPARI 


MOV 


PBUF0,R0 


IINITLZE PTR TO 'RECVD DATA' BUFR 


2345 


011150 


012737 


177764 


001502 




MOV 


«'*14,IN0X4 


ISTORE AND REPORT 12 OR LESS DATA ERRORS 


2346 


011156 


013701 


001406 






MOV 


PBUF1,R1 


IINITLZE PTR TO 'EXPCTD DATA' BUFR 


2347 


011162 


012737 


176400 


001260 




MOV 


««1400,INADR 


J SET COUNT 


2348 


011170 


021011 






CMPAGANt CMP 


(R0},(Rn 


{CORRECT HORD READ FROM DISKT 


2349 


011172 


001402 








BBQ 


11 




2350 


011174 


000137 


011742 






JMP 


NISCNP 


{BRANCH ir HISCMPRE ERROR 


2351 


011200 


005720 






111 


TST 


(R0)<t' 


{INCRHNT PTRS 


2352 


011202 


005721 








TST 


(RD* 


{TO NXT WORDS 


2353 


011204 


005237 


001260 






INC 


INAOR 


(DONE WITH CMPRIS0N7 


2354 


011210 


001367 








BNE 


CHPA6AN 


{IF NOT, COMPARE THE REST 


2355 


















2356 


011212 


005737 


001500 






TST 


INDX3 


{HAS THERE A BAD DATA WORD 


2357 
















ICEVEN AFTR RETRYING} 


2358 


011216 


001420 








BEO 


WCREPT 


INO, BRANCH 


2359 


011220 


012737 


010532 


001110 


REPHSCI 


MOV 


tREADrlLPERR 




2360 


011226 


104025 








ERROR 


35 


{DATA ERROR 


2361 


0U230 


005237 


001516 






INC 


ERCNT6 


{ALLOH 10 ERRORS AT MOST 


2362 


011234 


001002 








BNE 


11 




2363 


011236 


000137 


012114 






JMP 


EXT7 


{IF MORE, EXIT 


2364 


011242 


005737 


001254 




111 


TST 


RETRY2 




2365 


011246 


001404 








BEQ 


WCREPT 




2366 


011250 


00S237 


001354 






INC 


RETRy2 




2367 


011254 


000137 


010532 






JMP 


READ 




2368 
2369 


011260 


104421 






WCREPTI 


CON. ROY 




{WAIT FOR CNTRL RDY FROM 


2370 
















{PREVIOUS HRT CHK 


2371 


011262 


022737 


177776 


0012S4 




CMP 


l>2,RETRY2 


{IF THERE HAS A RETRY AFTER MI3C 


2372 
















{-OMPARISON, DO HRT CHK AGAIN 


2373 


011270 


001417 








BEQ 


ERHCHK 




2374 


011272 


000401 








BR 


LUPHCEt2 
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SEQ 0061 



2375 


011 274 


104415 






LUPWCEt 


CON. RESET 




2376 


011 276 


013777 


001440 


170160 




MOV 


WDSKADp 9RKDA 


IWRT CHK WITH THIS DSK-ADRES 


2377 


01 1 304 


013777 


001444 


170146 








;THIS * OF WORDS 


2378 


011312 


01 3777 


001442 


170142 




unu 




';THIS BUS ADRES 




011320 


012777 


000407 


170130 




MOV 


ff407r9RKCS 




2360 
2391 


01 1 326 


104421 








CON.RDY 






2382 


011330 


012737 


011274 


001110 


ERHCHKt 


MOV 


*LUPHCE>eLPERR 




2363 


011336 


032777 


040000 


170106 








JHARD EROR?CFROM WRT CHK) 




01 1 344 


001 410 








BFQ 


XHE 


;NOiBRANCH 


2385 


















2386 


011346 


004737 


016140 






J5H 


# GfcTl Wr 






011 352 


1 04026 












;HE ON WRT CHK 


2388 




005237 


001520 






INC 


ERCNT7 


> ALLOW 12 ERRORS AT MOST 


2)99 


011 360 


001002 








^MD 






2 390 


01 1 362 


000137 


012114 








EXT7 


;IF MORE) EXIT 


2 391 
2392 


011 366 


032777 


000001 


170060 


XHEI 


BIT 


#BIT0r 9RKER 


JWRIIE CHECK EROR? 


2393 


011374 


001420 








BEQ 


FINISH 




2394 


01 1376 


004737 


016140 








. fPTTHB' 
r V f US' 1 X "F 




2395 


011 402 


012737 


000003 


001202 




unv 




JGET TRY » 




011410 


163737 


001 256 


001 202 




SUB 




JSAVE IT FOR TYPEOUT 






1 04027 








ERROR 


27 


JWRT CHK EROR 


2398 












INC 




,«mjOn It/ EnRunij «i nuui 


2399 


011424 


001002 










1 1 




2400 


01 1 426 


0001 37 


012114 






TUO 




;IF MOREf EXIT 


2401 


011432 


000137 


01 2006 




1$: 


J 






2402 


















2403 


































{THERE WAS NO WC£» DONE 


2405 
















•WITH ALL CHECKING FOR SOFT 


2406 
















lERORSiETCi MODIFY PARAMETERS 


2407 
















;T0 CHECK NXT BLOCK ON 


















•THE DISK 


2409 




















011 436 


022737 


001422 


001424 


PXNXSHS 


CMP 


iPATir PRSPAT 


JFIND OUT THE NXT PftIRN GEHRATP 


2411 


011444 


001 404 










^ 1 


;T0 USE FOR GENRATING THE 


2412 


01 1 446 


062737 


000002 


001 424 




ADD 




;BUFR»STORE POINTER TO 


2413 


011 454 


000403 








BR 


21 


;GENRATR ROUTINE IN 'PRSPAT' 


2414 


011456 


012737 


00141 4 


001 424 


It t 


MOV 




{NOTE THER R 4 PAT-GENRATRS 


2415 
















JPAT0-PAT1-PAT2-PAT3----PAT0- 


2416 


011 464 


01 3701 


001476 




2$ t 




J. n u f m 


;FORM 5ECTR » TO BE USED NEXT 


24l7 


011 470 


116101 


010352 










J GET SECTR # 


2418 


01 1474 


042737 


00001 7 


001450 


3$: 


BTr 


# 1 7 f ADRES 


;MASK SECTR BITS 


2419 


011502 


050137 


001450 






BT* 




;FORH THE NEW DISK-ADRES 


2420 
















JFORM THE NXT BLOCK TO BE 


2421 
















JCHECKED. 


2422 


011506 


005237 


001476 






INC 


INDX2 


fOONE ALL 4 BL0CKS(3 SECS 


24?3 
















JEACH) ON THIS TRACK? 


2424 


011512 


022737 


000004 


001476 




CMP 


f4,INDX2 




2425 


011520 


001025 








BNE 


GOBAK 


:IF NOT> GO BAK & DO THE 


2426 
















JNXT BLOCK ON THIS TRACK 


2427 


















2428 


011522 


005037 


001476 




DONTRK! 


CLP 


INDX2 


JREINITLZE COUNT FOR 


2429 
















;4 BLOCKS ON THIS TRACK 


2430 


011526 


032737 


000001 


001474 




BIT 


tBIT0f INDXl 


;WH1CH SUR TO DO NXT? OR 1 



MAINDEC-U-DERKL-D 
DZRKLD.PU 31-AU 



2431 
2432 
2433 
2434 
2435 
2436 
2437 
2433 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2464 
2465 
2486 



011534 001407 



011552 000403 



011566 001002 



011574 0001 



011604 010001 
011606 032700 
011612 001002 



011620 005300 



011626 001021 



011634 001021 



011636 010102 

011640 042702 

011644 001002 

011646 000137 

011652 162702 

011656 100372 

011660 010100 

011662 012737 

011670 000403 

011672 012737 



MACYll 
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T7 


READ 


, SOFTWARE COMPARE, 


WRITE CHECK OF THE PATTERNS 








BEQ 


DOSURl 


{BRANCH, DO SUR 1 NXT 


000040 


001450 




ADD 


*40, ADRES 




000020 


001450 




BIC 


t20, ADRES 


;CLR SUR BIT, DO SUR NXT 








BR 


DONE 




000020 


001450 


DOSURlI 


BIS 


*20, ADRES 


{SET SUR BIT, DO SUR 1 NXT 


001474 




DONEt 


INC 


IHDXl 


{DONE WITH ALL 626 TRACKS? 








BNE 


GOBAK 




012120 






JMP 


TST10 




010456 




gobak: 


JMP 


BEGIN 


{IF NOT, GO BAK & CHECK 












{THE NXT TRACK 






JCSEROR 






{THIS IS THE ENTRY POINT 












{FOR SERVICE ROUTINE FOR CHECK- 






CSERORt 






{SUM EROR. CONTROL IS XFEREO 












{HERE ONCE CSE OCCURS 


167660 






MOV 


eRKDA,R0 


{GET RKDA AFTER CSE 








MOV 


R0,R1 


{SAVE RKDA 


000017 






BIT 


117, R0 


{FORM THE ADRES OF THE SECTR 








BNE 


It 


{WHICH GAVE CSE 


000004 






SUB 


14, R0 








Itl 


DEC 


R0 


{R0 CONTAINS DSK-ADRES WHERE 












{CSE OCURED 


001432 






CHP 


R0,DSKADR 


{DID A PREVIOUS RETRY (IF ANY) 












{GIVE CSE ON SAME ADRES 








BNE 


2t 


{NO, THIS IS A FRESH CSE, BRANCH. 












{IF THIS WAS A CSE ON A 


001252 






INC 


RETRYl 


{RETRY INCMNT RETRY COUNT. 












{BRANCH IF 3 RETRIES HAVEN'T 








BNE 


3t 


{BEEN DONE 












{GO REPORT CSE 












{IF CSE WAS IN THE LAST SECTR OF 












{THE 3 SEC BLOCK, GO TO 'WRTCHK' 












{OTHERWISE CHECK THE REST OF 












{THE SECTORS FOR CSE. 








HOV 


R1,R2 




177760 






BIC 


1177760, R2 








7(1 


BNE 


et 




011042 






JMP 


HRTCHK 




000003 




e$: 


SUB 


«3,R2 










BPL 


71 








6tl 


HOV 


R1,R0 




177775 


0012S2 




HOV 


»-3, RETRYl 










BR 


3t 




177776 


001252 


2tl 


MOV 


*-2, RETRYl 


{ALLOW 2 MORE TRIES FOR 












{THE CSE ON SAME DISK'ADRES 


001432 




3S; 


HOV 


R0,DSKADR 


{SAVE DSK'ADRES FOR DOING 



{THE RETRY-READ 
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SEC 0063 



2487 


011704 


163700 


001450 






SUB 


AORESrR0 


»H00iry THE 


2488 


011710 


005200 








INC 


R0 


iBUS ADRES & WORD COUNT 


2499 


011712 


005300 






4tl 


DEC 


R0 


J TO BE USE ON BEtRY- 


2490 


011714 


001407 








BEO 


SI 


IREAD 


2491 


011716 


062737 


001000 


001434 




ADD 


*1000>BUSADR 




2492 


011724 


062737 


000400 


001436 




ADD 


I400>KRDCNT 




2493 


011732 


000767 








BR 


4$ 




2494 


















2495 


011734 


104415 






511 


CON. RESET 


>CLR THE C8E IN RKER 


2496 


011736 


0001 37 


010566 






JMP 


RDAGAIN 


IGO SACKr READ AGAIN 


















• RETRY 


2498 




































2500 


















2501 










IMISCMP 






{THIS IS THE ENTRY POINT 


2502 
















IFOR SERVICE ROUTING, FOR 


















7DATA CROR CMISCOMPARISON) 


2504 
















(ON SOFTWARE COMPARISON 


2505 
















lOF DATA READ FROM THE DISK BLOCK 


2506 


















2507 


















2508 


011742 


104421 






MISCMPI 


CON, 




IHAIT FOR CNTRL RDY FROM 


2509 
















{PREVIOUS WRT CHK 


2510 


011744 


032777 


040000 


167504 










25 1 1 


011752 


001401 








BEO 






2512 


011754 


104415 








CON 


RCSST 


ICLR WCE IN RKER 


2St 3 
















IBUT STILL DATA EROR ENTER HERE 


251 4 


011756 


010022 






Itt 


MOV 


Da - 1 ao'M, 


;STORE MEM ADRES WHERE 


2515 
















;DATA EROR OCCUREO 


2516 


011760 


012123 








MOV 




;SAVE EXPCID DATA 


251 7 


011762 


012034 








MOV 


C R0 ) + • CR4) + 


(SAVE DATA RECVD (BAD) 


251 8 


011764 


005237 


001500 






INC 


INDX3 


{INDICATE HISCMPRISON 


2519 


















2520 


011770 


005237 


001502 






INC 


INDX4 


JSTORE ONLY 12CDEC) ERORS 


2521 


011774 


001402 








BEO 


4t 


!IF 12 ERORSr GO REPORT THEM 


2522 


















2523 


011776 


0001 37 


01 1 170 






JMP 




;G0 BACK & CMPARE THE REST 


2534 


















2525 


012002 


0001 37 


01 1330 




411 








2526 


















2527 


















2528 


















2529 
















>THIS THE ENTRY POINT FOR 


2530 
















lEROR SERVICE ON GETTING A 


2531 
















JWRITE CHECK EROR. 


2532 


















2533 


012006 


005737 


001256 




NCERORI 


TSI 


RETRlf3 


>DONE 3 TRIES? 


2534 


013012 


003035 








BGT 


CtiRERR 


IIF NOT SKIP, OTHERWISE REPORT 


2535 
















;M C EROR 


3536 


















2537 


012014 


012737 


000003 


001356 




MOV 


«3,RETRX3 


ISET CONT FOR RETRIES 


2538 


















2539 


012022 


017700 


167436 






MOV 


»RKDA>R0 


ilF WCE MAS IN THE LAST SECTOR 


2540 


012026 


010002 








MOV 


R0,R2 


;0F THE BLOCK. NO MORE SECS 


2541 


012030 


042702 


177760 






BIC 


1177760, R2 


!T0 CHECK. GO TO 'FINISH' 


2542 


012034 


001002 






3tl 


BNE 


4S 


J IF IT WASN'T LAST SECTOR OF THE 
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2543 


012036 


000137 


011436 


2544 


012042 


162702 


000003 


2545 


012046 


100372 




2546 


012050 


010001 




2547 


012052 


163700 


001440 


3548 


012056 


010137 


001440 


3549 


013062 


005200 




3550 


012064 


005300 




3551 


012066 


001407 




3552 


013070 


063737 


001000 


2553 


013076 


062737 


000400 


2554 


013104 


000767 




2555 


012106 


104415 




3556 


012110 


000137 


011056 


2557 








3558 


012114 


004737 


016716 


2559 








2560 








3561 








3563 








2563 








2564 








2565 








2566 








2567 








2568 








2569 








2570 








2571 








2572 








2573 








3574 








2575 








2576 








2577 








3578 








2579 








2580 








2581 








3582 


012130 


000004 




2583 








2584 


012122 


012737 


177764 


2585 


013130 


012737 


177764 


3586 


012136 


013737 


177723 


3587 


013144 


013703 


012636 


3588 


012150 


010201 




3589 


012153 


013700 


007740 


3590 


012156 


053700 


001230 


2591 


012162 


005003 




2592 


012164 


104415 




2593 








2594 


013166 


010077 


167272 


2595 


012172 


012777 


177400 


3596 


013300 


010177 


1672S6 


2597 


012204 


012777 


004003 


2591 


013212 


104421 





001442 
001444 



JMP 


FINISH 


;BLOCK. THEN CHECK REMAINING 


SUB 


*3,R2 


(SECTORS. (STARTING FROM THE 


BPL 


3S 


iSEC aft;:r the one giving nce) 


MOV 


R0.R1 


)SAVE DISK AORES 


SUB 


WOSKAD.R0 




MOV 


Rl.NOSKAD 


(GET SAVED DISK ADRES 


INC 


R0 




DEC 


R0 




BEO 


CLRERR 




ADD 


«1000.WBU8AD 


(FORM THE NEW BUS ADRES 


ADD 


*400f WWRDCN 


(FORM THE NEW WORD COUNT 


BR 


2« 




CON. RESET 




JMP 


NCAGAIN 




J8R 


PC.ABRT 





( («»*•••«»**•*»«•••»•»••***••<:*•»•»«•••»•••••••••••»•••••••••»•»* 

(«TEST 10 WRITE, WRITE CHECK ON CYLINDERS 127. 128 

(•THIS TEST WRITES 12 UNIQUE PATTERNS (ONE FOR EACH 
(•SECTOR) ON CYLINDERS 127 AND 138. THEN WRITE 
(•CHECK IS DONE TO SEE IF THEY WERE WRITTEN 
(•CORRECTLY. IT SHOULD BE NOTED THAT THERE IS 
(•CHANGE IN 'WRITE' CURRENT AT THIS CYLINDER. 
(•PATTERNS ARE RELOCATED ON THE CYLINDERS AFTER EACH 
(•WRITE/WRITE CHECK CYCLE. THUS THE FIRST TIME 
(•PATTERN '6P1' IS WRITTEN ON SECTOR 0, PATTERN 'SP3' ON 
(•SECTOR 7, ETC. AFTER THIS HRITE/NRITE CHECK CYCLE 
(•IS OVER PATTERN '8P2' IS WRITTEN ON SECTOR 0, PATTERN 
(•('SP3' ON SECTOR 1 AND SO ON, THIS WRITE/WRITE 
(•CHECK CYCLE IS REPEATGD 12 TIMES* THUS 
(•THE LAST WRITE/WRITE CHECK IS DONG USING 
(•PATTERN •SP12' ON SECTOR 0, PATTERN 'SPl' IS 
(•WRTTTEN ON SECTOR 1, PATTERN *SP2' ON SECTOR 2. 
(•ETC. IF YOU WANT TO WRITE ANY OTHER PATTERNS 
(•FILL IN THE PATTERNS YOU WANT IN LOCATIONS 
(•'SPl', •SP2',...ETC. 

( (•••»»t^«* •••••■•••••#•••••••••••••••••••••••••••••••••••••••••• 

TaT10l SCOPE 



MOV 
MOV 
MOV 
NOV 
MOV 
MOV 
BIS 
CLR 



••14.ERCNT1 

t-14>ERCNT2 

l-S5,ERCNT3 

«SP1,R2 

R2,R1 

17740, R0 

ORIVAD.R0 

R3 



WRERRI CON. RESET 



MOV 
MOV 
MOV 

MOV 

CON. RDY 



R0,»RXDA 

»-400,IRKWC 

RI.IRKBA 

14001. IIRKCS 



(ALLOW 13 ERRORS AT HOST 

(ALLOW 12 ERRORS AT MOST 

(ALLOW 15 ERRORS AT MOST 

(INITIALXCE POINTER TO PATRN 

(SET UP CYL ADRES BITS (137) 
(SET UP DRIVE * BITS 



(ADRES THE DRIVE 
(WRITE 1 SECTOR 
(USE THIS PATTERN 
fWRITE. GO 
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SeS 0065 



2599 


012214 


032777 


140000 


167234 




BIT 


1140000, 9RKC5 


;ANy ERROR? 


2630 


012222 


001414 








BEQ 


41 




2631 


012224 


012737 


012164 


001110 




MOV 


*WRERR<«IPCRR 


;SET ADRES FOR LOOPING ON ERROR 


2602 


012232 


004737 


016106 






JSR 


PC, eT4RG 


jGET TKCS, ER, OS, DA 


2603 


012236 


104021 








ERROR 


21 


JERROR OCCURRED ON DOING A WRITE 


2604 


012240 


10441S 








CON, RESET 


JCLEAR THE ERROR 


260S 


012242 


005237 


001504 








ERCNTl 


JALLOW 12 ERRORS ONLY 


2606 


012246 


001002 








SHE 


4$ 




2607 


012250 


00013? 


012656 






JMP 


EXTi0 




2608 


















2609 


012254 


005200 






4tl 


I MC 


R0 




261 


012256 


005203 








INC 


R3 


JKEEP COUNT 


261 1 


012260 


022701 


012654 










;USE PATTERNS IN A CYCLIC FASHION 


2612 


012264 


001002 








BNE 






2613 


012266 


012701 


012624 






MOV 


f SP1'2,R1 




261 4 


012272 


005721 






311 


TST 


(Rl}f 


f INCREMENT POINTERS TO NEXT PATTERN 


2615 


012274 


020327 


000014 






CMP 


R3, 114 


IDONE SURFACE 07 


2616 


012300 


002732 








BLT 


HRLO 


J NO 


2617 


012302 


00100S 








BNE 


2$ 


>YES, IF CHANGING HEADS 


26lS 


012304 


010201 








MOV 


R2f Rl 




2619 


012306 


042700 


000017 








H 1 7 , R0 


;SET UP CORRECT ADDRESS ETC, 


2620 


012312 


052700 


000020 






BTS 


120, R0 




2621 


















2622 


012316 


028327 


000030 




2Si 


CMP 


R3f v30 




2623 


012322 


001321 








BNE 


WRLO 


JNO, BRANCH 


2624 
















>DONE WITH BOTH CYLINDERS • 127 6 128? 


2625 


012324 


032700 


007700 




NRHIi 




17700, R0 


2626 


012330 


001405 










DOHCHK 


; YES 


2627 


012332 


012700 


010000 






HOV 


# 1 0000, R0 


•No, DO CYLINDER 128 


262S 


012336 


053700 


001230 






BIS 


ORIVAD, R0 




2629 


012342 


000707 








BR 


HRLOl 


>G0 BACK 


2630 
















;CYLINDERS 127 AND 128 HAVE BEEN 


2631 
2632 


















2633 


012344 


010201 






DOHCHKI 


HOV 


R2, Rl 


^WRITTEN, NOW DO WRITE CHECK 


2634 


012346 


012737 


177775 


001252 




MOV 


**3,RETRY1 


JINITIALIZE POINTER TO FIRST PATTERN 


2635 


012354 


012700 


010000 






MOV 


1 1 0000, R0 


JRETRY COUNT 


2636 


012360 


053700 


001230 






BIS 


DRI VAD, R0 


JDO CYLINDER 128 FIRST 


2637 


012364 


005003 






WCHIl i 


CLR 


R3 




2638 


012366 


010077 


167072 




UCERRI 


MOV 


R0,filRKDA 


> ADRES THE DRIVE 


2639 


















2640 


012372 


012777 


177400 


167060 


WCHIt 


MOV 


«>400,0RKWC 


JWRITE CHECK 1 SECTOR 


2641 


012400 


010177 


167056 






MOV 


R1,»RKBA 


;WITH THIS PATTERN 


2642 


012404 


012777 


004007 


167044 




MOV 


t4007,»RKCS 


;WRITE CHECK, GO 


2643 


012412 


104421 








COR, ROY 






2644 


















2645 


012414 


032777 


040000 


167030 




BIT 


140000, »RKDS 


;HE7 


2646 


012422 


001406 








BEQ 


1$ 


?N0 


2647 


012424 


004737 


016140 






JSR 


PCGETINF 




2648 


012430 


104026 








ERROR 


26 


;HC ON DOING WRT CHK 


2649 


012432 


005237 


001506 






INC 


ERCNT2 


GALLON 12 ERRORS ONLY 


2650 


012436 


001507 








BEQ 


EXT10 


;IF MORE, EXIT 


2651 


012440 


032777 


000001 


167006 


l$l 


BIT 


*BIT0,8RKER 


tWCE? 


2652 


012446 


001425 








BEQ 


4t 


J NO 


2653 


012450 


012737 


012366 


001110 




HOV 


tHCCRR.tLPERR 


;SET ADRES FOR LOOPING ON ERROR 


2654 


012456 


004737 


016140 






JSR 


PC»GETINF 


;GET INFO ON ERROR 
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T10 


WRITE, 


WRITE CHECK ON 


CYLINDERS 127, 128 


2655 


012462 


013737 


001252 


001202 




MOV 


RETRYl,tREG10 




2656 


012470 


062737 


000004 


001202 




ADD 


t4,(RES10 


JWCE ON DOING WRITE CHECK, WITH 


2657 


012476 


104027 








ERROR 


27 


;PATTERN STORED IN Rl 


2658 


012500 


005237 


001252 






INC 


RETRYl 


;D0 3 TIMES IN ALL 


2659 


012504 


0«t330 








BNE 


WCERR 




2660 


012506 


005237 


001510 






INC 


ERCNT3 


;ALLOW IS ERRORS ONLY 


2661 


012512 


001461 








BCO 


EXT10 


;IF MORE. EXIT 


2662 


012514 


012737 


177775 


001252 




MOV 


t-3, RETRYl 




2663 


















2664 


012522 


005200 






4$l 


INC 


R0 


JKEEP TRACK OF DISK-AORES 


2665 


012524 


005203 








INC 


R3 


>AND COUNT 


2666 


012526 


022701 


012654 






CMP 


*SP12,R1 


»USE PATTERNS IN CYCLIC 


2667 


012532 


001002 








BNE 


3S 




2668 


012534 


012701 


012624 






MOV 


ISP1«2,R1 


{FASHION 


2669 


012540 


005721 






3(1 


TST 


(Rl) + 


! INCREMENT POINTER TO NEXT PATTERN 


2670 


012542 


020327 


000014 






CMP 


R3,*14 


JDONE SURFACE 07 


2671 


012546 


002711 








BLT 


HCHl 


;N0 


2672 


012550 


001005 








BNE 


2t 




2673 


012552 


010201 








HOV 


R2,R1 


;IF CHANGING HEADS (0-1}, SET CORRECT 


2674 


012554 


042700 


000017 






BIC 


*17,R0 


; ADRES BITS 


2675 


012S60 


052700 


000020 






BIS 


t20,R0 




2676 


















2677 


012564 


020327 


000030 




2IS 


CMP 


R3,t30 


;DONE WRITE CHECKING SURFACE 1? 


2678 


012570 


001300 








BNE 


WCHI 


;N0, GO BACK 


2679 


















2680 


012572 


032700 


007700 




HCLOl 


BIT 


»7700,R0 


;D0NE BOTH CYLINDERS • 127, 1287 


2681 


012576 


001005 








BNE 


REPEAT 


lYES, BRANCH 


2682 


012600 


012700 


007740 






HOV 


»7740,R0 


;D0 CYLINDER 127 HOW 


2683 


012604 


053700 


001230 






BIS 


DRIVAD,R0 




2684 


012610 


000665 








BR 


HCHIl 




2685 


















2686 


















2687 


012612 


005722 






REPEATI 


TST 


(R2]'t' 


{RELOCATE THE PATTERNS ON THE 


2688 


012614 


020227 


012656 






CMP 


R2,iSP12'f2 


(CYLINDERS AND DO IT AGAIN 


2689 


012620 


001420 








BEO 


TSTll 


(lEXIT 


2690 


012622 


000137 


012150 






JMP 


DOWRT 


fTHIS TEXT) 


2691 


















2692 


















2693 


















2694 










; PATTERNS TO BE 


USED 




2695 


















2696 


012626 


177777 






SPII 


.WORD 


177777 


>IF YOU WANT TO WRITE ANY 


2697 


012630 


052525 






SP3I 


.WORD 


052525 


(OTHER PATTERNS, CHANGE THESE 


2698 


012632 


mill 






8P3t 


.WORD 


mill 


112 LOCATIONS TO ANY PATTERN 


2699 


012634 


010421 






SP4t 


,HORD 


010421 


(YOU WANT. 


2700 


012636 


102041 






SP5t 


.WORD 


103041 




2701 


012640 


010101 






SP6I 


.WORD 


010101 




2702 


012642 


040201 






SPTi 


.WORD 


040201 




2703 


012644 


000401 






8P8i 


.WORD 


000401 




2704 


012646 


031461 






SP9I 


.WORD 


031463 




2705 


012650 


070707 






SP10I 


.WORD 


070707 




2706 


012652 


007417 






SPllI 


.WORD 


007417 




2707 


012654 


041020 






SP12t 


.WORD 


041020 




2708 


















2709 


012656 


004737 


016716 




EXT10I 


JSR 


PCfABRT 
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2711 








2712 








2713 








2714 








2715 








2716 








2717 








2719 








2719 








2720 








2721 








2722 








2723 








2724 








2725 








2726 








2727 


012662 


000004 




2728 


012664 


032777 


000100 


2729 


012672 


001002 




2739 


012674 


000137 


014032 


2731 


012700 


104415 




2732 


012702 


104416 




2733 








2734 


012704 


012737 


177771 


2735 








2736 








2737 


012712 


104401 


012720 


2738 


012716 


000424 




2739 








2740 


012770 






2741 


012770 


104401 


012776 


2743 


012774 


000421 




2743 








2744 


013040 






2745 


013040 


104401 


013046 


2746 


013044 


000421 




2747 








2748 


013110 






2749 








2750 


013110 


012737 


001542 


2751 


013116 


012737 


001524 


2752 








2753 


013124 


017777 


166132 


2754 








2755 


013132 


053777 


001230 


2756 


013140 


012777 


000011 


2757 


013146 


104421 




2758 


013150 


104422 




2759 








2760 


013152 


005037 


001 474 


2761 


013156 


012704 


026742 


2762 


013162 


012705 


027342 


2763 


013166 


012737 


177634 


2764 








2765 








2766 


013174 


013702 


001464 



166324 

166310 



001476 



J I •••••••••••••••♦••••••♦♦••♦♦••••••••••*••••••••♦••••••••***•♦•• 

(•TEST 11 SEEK FUNCTION TIMER 

>«SEeK TIHER 

J •IN THIS PART or THE PROGRAM SEEKS ARE TIMED BETWEEN A PARTICULAR SET 
»»0F CYLINDERS, BOTH IN THE FORWRAD DIRECTION C0-312) AND REVERSE (31 2-0) , 
;**«»**«CAUTION***^«* 

(•IT SHOULD BE NOTED THAT THE SECTOR COUNTER (IN RKDS) IS USED AS THE REAL 
(•TIME CLOCK TO DO THE SEEK TIMING. FOR THE TIMES TO BE RELIABLE, THE 
(•SECTOR COUNTER SHOULD BE ACCURATE WITHIN THE SPECIFICATIONS OF THE DISK 
(•SPEEDf 1500 RPH ■ 40 MILI SECS/REV ■3.33 MILI SECS/SECTOR. 

(•VARIATION! +-30 RPM 

( (••••»•»••••••••••••••••••••*•••••••••••♦•••••••••♦••••••••♦•••• 

T8T1U SCOPE 

BIT iSW6,»SHR (INHIBIT TIMER7 

BNE .+6 
JHP PLT6RPH 
CON. RESET 
DRV. RESET 



((6511 
6411 



((67«l 
6611 



((69$l 
6811 



001260 
001262 



166332 PEPTIMI MOV 



MOV 


»-7,RETRYl 




(COUNT FOR 7 OIFRNI SEEK TIMES 








(TO BE RECORDED 




,65t 




((TYPE ASCIZ STRING 


BR 


641 




((GET OVER THE ASCIZ 


.ASCIZ 


<15><12>/SEEK 


TIME SCALE FACTOR>0.81 MILI 8ECS/ 


TYPE 


,67« 




{(TYPE ASCIZ STRING 


BR 


66* 




((GET OVER THE ASCIZ 


.ASCIZ 


<15><12><12>/ 


* 


OF SEEK i or SEEK/ 


TYPE 


,691 




((TYPE ASCIZ STRING 


BR 


68t 




((GET OVER THE ASCIZ 


.ASCIZ 


<15><12>/ SEEKS 


TIME SEEKS TIHE/<15><12> 


MOV 


tSIAD,INAOR 




(INITLZE PTR TO INNER ADRES 


MOV 


»SOAD,OUTAOR 




(INITLZE PTR TO OUTER ADRES 


MOV 


*OUTADR,«lRKDA 




(POSITION HEADS TO OUTER CYLINDER 








(BEFORE STARTING TO TIME 


BIS 


DRIVAD,»RKDA 




(SET DRIVE # BITS 


MOV 


•llffPKCS 




(SEEK, GO 


CON. ROY 






(WAIT FOR CNTRL RDY 


TST.RHS 






(WAIT FOR R/W/S RDY 


CLR 


INDXl 




(INDXl * 0, GOING IN( OTHERWISE OUT 


HOV 


«BUFR10,R4 




(STORE FHRD SEEK TINES IN THIS BUFR 


MOV 


*aUFRll,R5 




(STORE REVRSE * " 


HOV 


i<>144,INDX2 




(SET COUNT FOR « OF SEEKS 


MOV 


RKDA,R2 
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2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2775 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
27B6 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2813 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 



013200 
013204 

013206 
013212 
013216 

013220 
013224 
013230 



013234 
013240 
013242 
013244 
013250 

013252 
013254 

013260 
013264 



013266 
013272 
013300 
013306 
013314 



005737 
001005 

017712 
053712 
000404 

017712 
053712 
004737 



005737 
001004 
010324 
005237 
000751 

010325 
005037 

005237 
001343 



012705 
012737 
012737 
012737 
012737 



166046 
001230 



166036 
001230 
014722 



001474 
001474 



001474 
001476 



177776 
026742 
026744 
026442 
026522 



013322 013700 001162 

013326 013701 001164 

013332 012702 177635 

013336 005003 

013340 021011 

013342 003404 

013344 011004 

013346 011110 



111 
211 



001162 
001164 
001166 
001170 



TST 
BNE 

MOV 
BIS 
BR 

HOV 
BIS 
JSR 



TST 
BNE 
HOV 
INC 
BR 

MOV 
CLR 

INC 
BNE 



INDXl 
It 

»INADR,fR2 
DRIVAD,8R2 
21 

»0UTADR,fR2 

0RIVAD,»R2 

PC,»tlTIMSEK 



INDXl 
31 

R3, (R4)+ 

INDXl 

BEGSK 

R3, (R5]t 
INDXl 

INDX2 
BEGSK 



(GOING FHRD OR REVRSET 
(REVRSE, BRANCH 



(FHRD, SET INNER CYL ADRES 
(SET DRIVE i BITS 



(SET OUTER CYL ADRES 

(SET DRIVE f BITS 

(GO, TIME THE SEEK FROM CYLINDER 

(0 TO THE ABOVE CYL, RETURN WITH 

(R3 CONTAINING THE TIME (MS, SCALE 

(FACTOR* 0,01} REQUIRED FOR THE SEEK. 



(STORE TIME TAKEN FOR FRWRD SEEK 
(SET FLAG FOR DOING REVRSE SEEK 
(GO DO IT 

(STORE TIME TAKEN FOR REVRSE SEEK 
(CLR FLG FOR DOING FRWRD SEEK 

(RECORDED 144 SEEK TIMES 
(IF NOT, GO BAK 



(AT THIS POINT 100 SEEKS HAVE BEEK PERFORMED BETWEEN TWO 
(CYLINDERS (FORWARD & REVERSE DIRECTION). FORWARD SEEK 
(TIMES ARE STORED IN TABLE STARTING AT 'BUFRIO' REVERSE 
(STARTING AT 'BUFRll'. THE FOLLOWING CODE FINDS OUT THE 
(NUMBERS or TIMES A PARTICULAR 'SEEK TIME' WAS OBTAINED. 
(EXAMPLEI OUT OF 100 TIMES THE SEEK WAS DONE BETWEEN 
(CYLINDER & LAST. 
(70 TIMES IT TOOK 95 MILI SECS 
(20 TIMES IT TOOK 85 MILI SECS 
(10 TIMES IT TOOK 100 MILI SECS 

(THIS INDICATES HOW CONSISTENT WAS THE SEEKING TIME. 
(NOTE THAT ONLY 5 DIFFERENT "SEEK TIMES" WILL BE TYPED 
(OUT. 

(SORTING ROUTINE 



MOV 


*-2,R5 


(COUNT FOR FRWRD, REVRSE 


HOV 


IBUFR10,*REG0 


(INTLZE PTR TO 'SEEK TIME* 


MOV 


fBUFR104>2,tREGl 




MOV 


«BDFR4,«REG2 




MOV 


IBUFR5,IREG3 


(INILZE PTR TO '1 OF TIMES' 


MOV 


IREG0,Re 


(PTR I 'SEEK TIME' 


MOV 


IREClrRl 




MOV 


#•143, R2 


(COUNT FOR 143 ITEMS TO SORT 


CLR 


R3 




CMP 


(R0),(R1) 


(SORT THE ITEMS & PUT THEM 


BLE 


3« 


(IN DESCENDING ORDER 


MOV 


(R0),R4 


(LARGER ITEMS AT TOP OF LIST, 


MOV 


(R1),(R0) 


(SMALLER AT THE BOTTOM 
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SCO 0069 



2823 


n 1 ^ n 


m 01 A 1 1 










R4# CRl ) 




2824 


1 3352 


afloat 








INC 


R3 




2825 


01 3354 












C R0 ) ^ 




2926 












TST 


C Rl ) ^ 




AO 












INC 


R2 




2828 




00 1366 








BNE 


21 




2829 












TST 


R3 


2 SORTED ALIi ITEMS? 






001 355 








BNE 


If 


|IF MOT LOOP BACK 


28 1 






















01 3700 


001 162 






MOV 


SREG0f R0 


>PTR TO 'SEEK TIME' 




013374 




001 166 






MOV 


tREG2# Rl 


I SAVE 'SEEK TIME' HERE 


2834 




01 3702 


001 1 70 






MOV 


IREG3* R2 


(SAVE '# OP TIMES' HERE 


2835 


1 3404 


010204 














2636 


01 3406 










CLR 


C R4 ) + 








aaKa'yA 








CLR 


CR4)^ 


>'t op TIHES'BUPR 


2838 


013412 


OvOV 










CR43 + 




23 39 


1 341 4 










CLR 


CR4) + 








005024 








CLR 


CR4 ) + 




2841 


01 3420 


012703 


177773 






HOV 


i*5 p R3 


3SAVE ONLY 5 OIFRNT 'SEEK TIMES* 


2842 


















2843 


01 3424 










MOV 


foa^ .roll 


{FIND OUT THE '# OF TIMES' 






012703 


177634 






MOV 


1*1 44y R3 


TEACH 'SEEK TIME' WAS 


r :^ 


01 3432 


0220 1 1 






4t S 


CMP 


CR0] + > CRl ) 






01 3434 


00141 1 








bEQ 




r OBTAINED 




















2848 




10109 1 £ I 








TST 


Cri ) + 




2849 


01 3440 




177776 






MOV 


•9rp0).fnll 


is&vr 'RPPK TTMir' 




013444 


005722 








TST 


CR2]t 




2851 


013446 


012712 


000001 






MOV 


ll> (R2} 


IKEEP '# OP TIMES' 


2852 


013452 


005203 










R3 








oiai AAA 
1010 1 9v*t 








BEQ 


61 




2854 


01 345 


000765 








BR 


41 




2855 




















a 1 1 A Act 


00521 2 






5$t 




(R2] 


JINCRMNT '# OP TIMES' 


2857 














R3 


;ALL D0NE7 




013464 


001 362 








BNE 


4t 


;IF NOT> GO BAK 


2859 




















013466 


005205 






681 


INC 


R5 


1 SORTED BOTH PRWRD/ REVRSE 


2861 


013470 


001415 








BEQ 


GOTYPE 


J'SEEK TIMES', IF YES 60 TYPE 




















2863 


01 3472 


012737 


027342 


001162 




MOV 


«BUFR11>(REG0 


TIF NOT, INITLEE PTR TO 'SEEK TIME' 


2864 




012737 


027 344 


001 164 




HOV 


#BUFR1U2>$REG1 


2865 




012737 




001 166 




MOV 


«BUFR6«IREa2 


ISAVE 'SEEK TIME' 






012737 


026662 


001 170 




MOV 


»BUFR7«tREG3 


;SAVE '1 OF TIMES' HERE 


2967 


















2868 


01 3522 


000677 








BR 


It 


IGO BAK i DO SORTING FOR REVRSE SEEK TIMES 




















2870 














JTYPE 


OUT CYL »'S BETWEEN WHICH SEEK 


2871 














(WAS 


TIMED, 'OUTADR' TO 'INAOR' 'INAOR' TO 'OUTADR 


2872 


013524 


104401 






gotvpe: 


TYPE 






2673 


013526 


001213 








ICRLF 






2874 


013530 


104401 


013536 






TYPE 


i65$ 


nTYPE ASCIE STRING 


2875 


013534 


000403 








BR 


64t 


MGET OVER THE ASCIZ 


2876 










; >6S$i 


.ASCIZ 


/CYLS:/ 




2877 


013544 








64(t 








2879 



















IIHDEC 


-11-OZRKL-D 


HACYll 27C1006) 


04-OCT 


-76 14:26 PAGE 54 




IRKLD, 


PU 31 


,-AUG-76 


15(35 


Til 


SEEK FUNCTION TIMER 




2879 


013544 


017700 


165512 




MOV 


»OUTADR,R0 


J GET OUTER CYL t 


2880 


013550 


006200 






ASR 


R0 




2881 


013552 


006200 






ASR 


R0 




2882 


013554 


006200 






ASR 


R0 




2883 


013556 


006200 






ASR 


R0 




2884 


013560 


006200 






ASR 


R0 




2885 


013562 


010046 






MOV 


R0,-CSP3 




2886 


013564 


104424 






TYPDSS 




;TYPE IT OUT IN DECIMAL 


2887 


013566 


104401 


013574 




TYPE 


,678 


JjTYPE ASCIZ STRING 


2888 


013572 


000401 






BR 


668 


JJGET OVER THE ASCIZ 


2889 








} »67Sl 


.ASCIZ 


/-/ 




2890 


013576 






66$i 








2891 


013576 


017701 


165456 




HOV 


»IHADR,R1 


JGET INNER CYL # 


2392 


013602 


006201 






ASR 


Rl 




2893 


013604 


006201 






ASR 


Rl 




2394 


013606 


006201 






ASR 


Rl 




2895 


013610 


006201 






ASR 


Rl 




2896 


013612 


006201 






ASR 


Rl 




2897 


013614 


010146 






MOV 


R1,-(SP) 




2898 


013616 


104424 






TYPDSS 




JTYPE IT OUT IN DECIMAL 


2399 


013620 


104401 


013626 




TYPE 


,698 


J ; TYPE ASCIZ STRING 


2900 


013624 


000405 






BR 


688 


;>GET OVER THE ASCIZ 


2901 








n69t: 


.ASCIZ 


<15><12>/ FRWRO/ 


2902 


013640 






688! 








2903 


013640 


104401 


002101 




TYPE 


,BLNKS9 




2904 


013644 


104401 


013652 




TYPE 


,718 


;>TYPE ASCIZ STRING 


2905 


013650 


000404 






BR 


708 


MGET OVER THE ASCIZ 


2906 








n7i8i 


.ASCIZ 


/REVRSE/ 




2907 


013662 






7081 








2909 
















2909 












ITYPE OUT THE '* OF SEEKS' & 'SEEK 


2910 












>TIHE' 


OBTAINED FOR EACH OF THOSE 


2911 












> SEEKS 




2912 


013662 


005000 




TYPTIMJ 


CLR 


R0 




2913 


013664 


005005 






CLR 


R5 




2914 


013666 


104401 




18: 


TYPE 






29lS 


013670 


001213 






8CRLF 






2916 


013672 


016046 


026522 




MOV 


8UFR5(R0],-CSP] 


>GET 'f OP SEEKS', IF NONE C0} 


2917 


013676 


001424 






BEO 


38 


ISKIP TYPING (FRHRD SEEK) 


2918 


013700 


104405 






TYPDS 




fGO TYPE OUT DECIMAL '# OF SEEKS' 


2919 


013702 


104401 






TYPE 






2920 


013704 


002110 






BLNKS2 






2921 


013706 


016046 


026442 




HOV 


BUFR4CR0}, -(SP) 


jGET 'SEEK TIME' FOR EACH OF 


2922 


013712 


104405 






TYPDS 




:0F THAT '# OF SEEKS'. 'GO 


2923 














STYPE OUT IN DECIMAL 


2924 
















2925 


013714 


016046 


026662 


28: 


MOV 


BUFR7(R0),-CsP) 


JGET '» OF SEEKS', IP NONE t0) 


2926 


013720 


001416 






BEQ 


48 


fSKIP TYPING (REVRSE SEEK) 


2927 


013722 


005705 






TST 


R5 




2928 


013724 


001402 






BEQ 


68 




2929 


013726 


104401 


002075 




TYPE 


,BLNK13 




2930 


013732 


104405 




68: 


TYPDS 




STYPE OUT IN DECIMAL 


2931 


013734 


104401 






TYPE 






2932 


013736 


002110 






BLNKS2 






2933 


013740 


016046 


026602 




MOV 


BUFRS(R0)f(8P} 


J GET 'SEEK TIME' t TYPE IT 


2934 


013744 


104405 






TYPDS 




lOUT IN DECIMAL 
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SEO 0071 





01 3746 










BR 


5( 




2936 


















2937 


01 3750 


0057 26 






3ft 1 


TST 


CSP) + 


•POP STACK 






00520S 








INC 


R5 






013754 


000757 








BR 


21 






















9941 


01 3756 


005726 






49 1 


TST 




ypop STACK 




01 3760 


005 70S 










R5 




2943 


013762 


Aflt 1 am A 
00 1 Id 194 








BNF 






2944 


















2945 


013764 
01 3766 


0V3 f €V 












sTMCDPMPNT DTD TftAf.PA 


2946 


020027 


00001 2 






El. 






2947 


B13772 


001 335 








BNE 


* * 


• TV MAT ffi n&V 


2948 


















2949 


013774 


062737 




vl!/ Z / Dv 


TIMDON I 






tTMrRMMT DOTNTTD TA NP'yT 


2950 


1 4002 


062737 


000002 


001 262 




ADD 




DINNER & OUTER ADRES 




014010 


005237 


001 252 






INC 


RETRYl 


lAliL DONE? 


2952 


01 4014 


aai Act A 










PLTGRPH 








032777 


000100 


165114 




BIT 


#SII6f 9SHR 


; INHIBIT TIMER? FURTHER ? 


2954 


01 4024 


001402 








BEQ 


PLTGRPH 


(YESi BRANCH 


2955 


014026 


000137 


013124 






JHP 


REPTIM 


|S0> BACK AND TIME REST 


2956 
















tOF SEEKS 


2957 


















2959 


















2959 


















2960 










;PLOT GRAPH OF 


•SEEK TIME' 


V/S 'CYLIDERS SEEKED' 



2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 



IPERFORH SEEK FROM CYLINDER « TO EVERY OTHER CYLINDER AND TIME IT. 

;0 0,0 1,— — 312. NOTE 'SECTOR COUNTER' IS USED AS A READ 

(TIME CLOCK TO TIME THERE SEEKS, AFTER OBTAINING THE SEEK TIMES A 
IGRAPH IS PLOTTED OF 'SEEK TIME' V/S 'CYLINDER'. 

(TIME THE SEEKS 



014032 


032777 


000040 


165100 


PLTGRPH! BIT *8H5,»SHR 


?5KIP THE GRAPH? 




014040 


001002 






BNE 


.+6 






014042 


000137 


015150 




JMP 


T8T12 


lYES, BRANCH 




014046 


104415 






CON. RESET 






014050 


104416 






DRV. RESET 






014052 


012737 


177465 


001500 


MOV 


•-3l3rINDX3 


; PERFORM 313 SEEKS 0-0,0-1 


,0-312 


014060 


012704 


026742 




MOV 


IBUFR10f R4 


(STORE 'SEEK TIME' HERE 




014064 


005037 


001260 




CLR 


INADR 


jCLR CYL ADRES BITS 




014070 


013777 


001260 


165366 


111 MOV 


INADRrlRKDA 


! ADRES THE RIGHT CYLINDER 




014076 


053777 


001230 


165360 


BIS 


DRIVAD,»RKDA 


>ADRG5 THE RIGHT DRIVE 




014104 


004737 


014722 




JSR 


PC.TIMSEK 


IGO TIME THE SEEK FROM CYL 

















!T0 THE ABOVE CYL. RETURN 


WITH 














|R3 CONTAINING 'SEEK TIME' 


IN MS 














ISCALE FACTOR OF 0.01 




014110 


010324 






MOV 


R3>(R4)f 


SSTORE 'SEEK TIME' 




014112 


042777 


017777 


165344 


BIC 


»17777»»RKDA 


iSEEK BACK TO CYL 


FOR 


014120 


012777 


00001 1 


165330 


MOV 


*11.»RKCS 


{TIMING NXT CYL SEEK 




014126 


104421 






CON.RDY 




JNAIT FOR CNTRL RDY? 




014130 


104422 






TST.RWS 




JWAIT FOR R/M/S RDY 




0H132 


062737 


000040 


001260 


ADD 


•40, INADR 


(FORM NXT CYL ADRES 




014140 


005237 


001500 




INC 


INDX3 
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■5EQ 0072 



2991 


014144 


001351 






BNE 


11 




2992 
















2993 










JPLOT A 


GRAPH USING 


'SEEK TIMES' RECORDED BEFORE 


2994 
















2995 


014146 






PLOT! 








2996 


014146 


104401 


014154 




TYPE 


,651 


;tTYPE ASCIZ STRING 


2997 


014152 


000422 






BR 


641 


MGET over the ASCIZ 


2998 








n65i] 


.ASCIt 


<15><12><i2><12>/X AXIS - SEEK TIME - MILI 5ECS/ 


2999 


014220 






6411 








3000 


014220 


104401 


014226 




TYPE 


,671 


MTYPE ASCIZ STRING 


3001 


014224 


000423 






BR 


661 


IIGET over the ASCIZ 


3002 








! J67$J 


.ASCIE 


<i5><i2>/y 


AXIS - CYLINDER SEEKED FROM 0/<15><12><12> 


3003 


014274 






6611 








3004 
















3005 


014274 


104401 






TYPE 






3006 


014276 


002103 






BLNKS7 






3007 


014300 


005000 






CLR 


R0 


ITYPE CUT THE TIME UNITS 


3000 


014302 


010046 




111 


MOV 


R0,-(8P) 


ICMILI SECS) FOR THE X-AXIS 


3009 


014304 


104424 






lYPDS^ 




ILIKE THISI 


3010 


014306 


005700 






TST 


R0 


10 20 30 40..... 


30U 


014310 


001411 






BEQ 


21 




3012 


014312 


022700 


000144 




CMP 


*t44,R0 




3013 


014316 


003010 






BGT 


41 




3014 


014320 


022700 


000170 




CMP 


1170, R0 




3015 


014324 


002412 






BLT 


51 




3016 


014326 


104401 






TYPE 






3017 


014330 


002110 






BLNK82 






3018 


014332 


000404 






BR 


3$ 




3019 


014334 


104401 




211 


TYPE 






3020 


014336 


002111 






BLNKSl 






3021 


014340 


104401 




411 


TYPE 






3022 


014342 


002107 






BLNK83 






3023 


014344 


062700 


000012 


311 


ADD 


112, R0 




3024 


014350 


000754 






BR 


11 




3025 
















3026 


014352 


104401 




511 


TYPE 






3027 


014354 


001213 






• CRLF 






3028 


014356 


104401 






TYPE 






3029 


014360 


002103 






BLNKS7 






3030 
















3031 


014362 


012700 


177763 


PLTll 


MOV 


*-15,R0 


ITYPE OUT THE X-AXIS MARKERS 


3032 


014366 






111 








3033 


014366 


104401 


014374 




TYPE 


,651 


MTYPE ASCIZ STRING 


3034 


014372 


000403 






BR 


641 


MGET OVER THE ASCIZ 


3035 








M65I1 


.ASCII 


/I-—/ 




3036 


014402 






6411 








3037 


014402 


005200 






INC 


R0 




3038 


014404 


001370 






BNE 


11 




3039 
















3040 








JIF 8W 


4 IS SET 


THEN TYPE THE COMPLETE GRAPH. IF NOT TYPE THE SMALL GRAPH 


3041 
















3042 


014406 


032777 


000020 164524 




BIT 


ISH4,»SWR 


JTYPE COMPLETE GRAPH? 


3043 


014414 


001054 






BNE 


CMPGRP 


lYES BRANCH 


3044 














lir HOT, TYPE SMALL GRAPH 


3045 
















,1^46 
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3047 








3046 


014416 


005000 




3049 


014420 


032777 


000040 


3050 


014426 


001445 




305 1 


014430 


1 04401 




3052 


014432 


001213 












3054 








3055 












Al 0ICI4 A 
10 1 V WO 








1 aA Acm 




?aeo 




104401 


014446 




014444 


000401 




inti 










01 4450 






3062 


01 4450 


010001 




30$ 3 


014452 


006301 




3064 


014454 


016103 


026742 


3065 


01 4460 


004737 


014662 


3066 


014464 


022700 


000004 


3067 


014470 


003402 




3066 


01 4472 


005200 




3069 


01 4474 


000751 










. 


307 1 


014502 


003403 








062700 


000002 


3073 




000743 




307 4 


014512 


022700 


000310 


3075 


014516 


003403 




3076 


014520 


062700 


000005 


307 7 




0007 35 




3078 


1 4526 


022700 


0003 1 2 


3079 


014532 


001403 




3060 


014534 


062700 


000002 


3081 


01 4540 


000727 




30f)2 


014542 


000137 


015150 


3083 








3064 








3065 








3086 








3087 








3086 


014546 


005000 




3069 


014550 


012701 


177773 


3090 


014554 


01 2702 


026742 


3091 


014560 


1 04401 




3092 


014562 


001 21 3 




3093 


014564 


00041 2 




3094 








3095 


014566 


032777 


000040 


3096 


014574 


001002 




3097 


014576 


000137 


015150 


3096 


014602 


005201 




3399 


014604 


001005 




3100 


014606 


012701 


177773 


3101 


014612 


010046 




3! 012 


014614 


104405 





SHGRPt 
111 



M6SII 
64*t 



CLR 


R0 




BIT 


tSHSrfSHR 


;SKIP REST or GRAPH? 


BGQ 


51 


I YES 


TYPE 




rIN THIS GRAPH SEEK TIMES ARE 


tCRLF 


{PLOTTED ONLY FOR SELECTED 




{CYLINDERS (NOT ALL) SHOWN BELOW! 




|0f 1^2 


,3i4i 6>e,10,12<14il6,16,20> 






r3S« « r 190* 1 95 f 2001 203 


MOV 


R0f "(SP) 


ITYPE THE MARKERS 








TYPE 




■ ■TYPir Iflf^TV ^TRTNfl 
nouiA oinxnu 


BR 


64t 


vtf^ITT OWB TUB' k%r<T7 


•ASCIZ 


/"/ 




MOV 


R0 r R 1 


'FORM THE ADRES OF 'SEEK TIME 


ASIi 






MOV 




s APT THIT sent TTMP 


JSR 


PC f PLTPT 


tfltt DT.ftT TT 


CMP 




• DT ftTTCn TIDT0I f*VT A9 
vruUllE.U Ulr'lK) Liu v« 


BIiE 


2t 


1 YES 


IHC 


R0 




BR 


1* 








SB 'JPTO CYL 20? 


BLE 


3»" 




ADD 


t2,R0 




BR 


11 




CMP 


*310.R0 


{PLOTTED UPTO CYL 200? 


BLE 


41 




ADD 


tS.R0 




BR 


1« 




CMP 


t312f R0 


; PLOTTED ALL CYLS? 


BEQ 


5$ 




ADD 


*2>R0 




BR 


1$ 




JMP 


TSI12 





;IF SW 4 IS SET THE COMPLETE GRAPH IS PRINTED OUT, IT GIVES TIMES FOR 
;SFEKS FROM CYLINDER TO ALL OTHER CYLINDERS (0> 1 ,2, 3. . .202] . 

tINITLZE COUNT 

UNITLZE COUNT FOR Y-AXIS MARKER 
JINITLZE.PTR TO SEEK TIMES 



164344 2«i 



CLR 


R0 


MOV 


«-5,Rl 


MOV 


tBUFR10>R2 


TYPE 




6CPLF 




BR 


3t 


BIT 


«SH5r»SHR 


BNE 


.'•'6 


JMP 


TST12 


INC 


Rl 


BNE 


4$ 


MOV 


»-S,Rl 


MOV 


R0»-tSP) 


TYPD5 





;SKIP REST OF GRAPH? 



JTYPE OUT Y-AXIS MARKER 'CYL »' 
;IF REQUIRED 



HYPE 'CYL »' ON Y-AXIS 
*(IN DECIMAL) 
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000402 
104401 
002104 



DZRKLD.Pll 


3103 


014616 


3104 


014620 


3105 


014622 


3106 


014624 


3107 


014624 


3108 


014630 


3109 




3110 


014634 


3111 




3112 


014634 


3113 


014636 


3114 




3115 




3116 


014642 


3117 


014644 


3116 


014646 


3119 


014650 


3130 


014654 


3121 


014656 


3122 




3123 




3124 




3125 




3126 




3127 




3128 




3129 




3130 




3131 




3132 




3133 




3134 




3135 


014662 


3136 


014666 


3137 




3136 


014670 


3139 


014672 


3140 


014674 


3141 


014676 


3142 


014702 


3143 


014704 


3144 


014706 


3145 




3146 


014710 


3147 


014710 


3148 


014714 


3149 




3150 


014720 


3151 


014720 


3152 




3153 




3154 




3155 




3156 




3157 




3158 





104401 
000401 



012203 

004737 014662 



104401 
001213 
005200 
022700 
001344 
000137 



162703 000310 
002403 

104401 
002111 
000772 

062703 000144 
002402 
104401 
002111 



104401 
000401 
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BR 5$ 
4tt TYPE 

BLNKS6 



n6S(t 

64tl 



6SI 



TYPE 
BR 

.ASCIZ 



MOV 
JSR 



TYPE 

ICRLF 

IMC 

CMP 

BNE 

JMP 



f65( 

64S 

/-/ 



(R2)+,R3 
PC. PLTPT 



R0 

i312«R0 
2t 

TST12 



;>TYPE ASCIZ STRING 
;>GET OVER THE ASCIZ 



»GET SEEK TIME 
I GO PLOT THE POINT 



(ALL DONE? 

;IF NOTf GO BAK 



; PLTPT 

tTHE ROUTINE IS ENTERED WITH R3 CONTAINING HORIZONTAL AXIS 
{COORDINATE- SEEK TIME 

{PLOT THE ACTUAL TIME ON THE GRAPH. IN KEEPING WITH NORMAL 

rCONVENTION A NUMBER LESS THAN HALF THE CELL WIDTH IS 

{CONSIDERED AS FALLING UNDER THE PREVIOUS CELL. A NUMBER 

{GREATER THAN OR EQUAL TO HALF THE CELL WIDTH FALLS UNDER THE NEXT CELL 

{EXt IF SEEK TIME IS 11.5 MS. IT'S BETN'N 10 & 12, BUT > 11 

{HENCE IT HILL BE PLOTTED AS 12 IF SEEK TIME IS 10.8 MS. 

{IT'S BETH'N 10 & 12, BUT < 11 HENCE IT WILL BE PLOTTED 

{AS 10,0 MS 



PLTPT I 



811 



{{65${ 
64*t 



SUB 
8LT 

TYPE 

BLNKSl 

BR 

ADD 

BLT 

TYPE 

BLNKSl 



TYPE 
BR 

, ASCIZ 
RTS 



1310, r3 
71 



PLTPT 

tl44.R3 

8( 



.656 
641 

/X/ 



{FIND OUT HOW MANY BLANKS TO 
{INSERT TO PLOT THE POINT 
{NOTE THE FIRST CELL " MS 



{{TYPE ASCIZ STRING 
{{GET OVER THE ASCIZ 



PC 



{TIHSEK 

{THIS ROUTINE FINOS OUT THE TIME REQUIRED TO SEEK TO THE CYLINDER 
{INDICATED IN RKDA. 

{•••CAUTION*** SECTOR COUNTER IS USED AS A REAL TIME CLOCK TO KEEP TIME. 
{ENTPYI JSR PC. TIHSEK 

{ RKDA CONTAINS THE CYLINDER TO BE 8GEKED FROM THE PRESENT POSITION. 
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SEO 0075 



3159 








t RETURN 1 




Xrlb O&b^ t inSt X" H A iJ X QbUOf D^nUb TH^IWR ~ VfV* 


3160 
















3161 
















3162 














lOl yTT f f^AtlUT DPVAf.nTTnNS Of 


3163 


01 4722 


10246 




TIMSEKt 


MOV 


R2 r ■(or 3 


t rtT itir t re AM runrv u&OK TR TNDEX MftRic ) 


3164 


014734 


005003 






CLR 


R3 


f nv nXLI oECiS rUK EACn KBiV 


3165 




01 3701 


001 452 




MOV 


RKD8 f Rl 




3166 




011 103 




111 


MOV 


9R1 f R2 




3167 


01 4734 




otaokAaa 

WD W0 




BIT 


ft Ann. 


IWftXl run 0Un 


3166 


014740 


001 774 






BEO 


1 1 




3169 
















3170 


014742 


J27D2 


naoitm a 

OWVIV 




BIT 




tU&Tf 8*nD HFftfiQ Ifl fift THAT 


3171 


01 4746 


001 771 






BEp 


1 1 


lU CAN START WAITING FOR 


3172 












lINDEXr SEC 


3173 
















3174 


014750 


011 102 




2«! 


MOV 


9R1 f R2 




3175 


014752 


032702 


000400 




BIT 




{WAIT FOR SEC OK 


3176 


014756 


001 774 






BEO 


2t 




3177 


014760 


021 102 






CMP 






3178 


014762 


001 372 






BNE 


9* 
«* 




3179 


014764 


032702 


OVVvl 7 




BIT 


117^ R2 


iHiTT mo uvf* 01. TNnB'y mark 


3180 


014770 


001 367 






BNE 


21 


jAo oOQn Ad IT Lo BLC iooUC 


3181 














|A SEEK fc START TIMING 


3182 














f 


3183 


014772 


01 2777 


tovvvi I 


164456 


MOV 


till VRKCo 


1 ISSUE A SEEK, START TIMING 


3184 














iTHE SEC COUNTER 


3185 


015000 


1 04421 






CON, 


iRDi 


}NAIT FOR CNTRL ROY 


3186 
















3187 


015002 


01 1 102 




3(1 


MOV 


vRl #R3 




3186 


01 5004 


032702 


000400 




BIT 


AAAa fit 


jWAIT FOR SOK 


3189 


1 50 1 








BEO 






3190 


015012 


94odl I 






CMP 


R2# PRI 


• Turn ^ADDr^>P9 


3191 


01 50 1 4 


001 372 






BNE 


3t 


t NO 


3 1 92 










BIT 




J R / n/ t\u z OIL I * 


3193 


015022 


001025 






BNE 


8KD0N 


1 IF YESr BRANCH 


3194 


015024 


032702 


00001 7 




BIT 


#17 # R2 


1 HA IT FOR SEC CNTR TO HOVE 


3 195 


015030 


001 764 






BEO 


3$ 




3196 
















3197 


015032 


01 1 102 




4*1 


MOV 


VRl r R2 




3198 


015034 


032702 


000400 




BIT 


f 400# R2 


fWAIT FOR SOK 


3199 


01 5040 


001 774 






BEQ 


41 




3200 










CMP 


R3 r 0R1 




3201 




001 372 






BNE 


4$ 




3202 


01 5046 


032702 


000100 




BIT 


# 100r R2 


iR/n/S RDi SGTf SEEK DONE? 


3209 


01 5052 








BNE 


Of 




3304 


81 5094 


032/02 


000017 




SIT 


1 1 ? f R3 


• TV MAI* irrm fPDtif*if Av sr^ 
; If rcvT rkE>br *KAw' Vr S&U 


3205 


01 5060 


001 364 






BNE 


4$ 


iCOUNTERf INCREMENT R3 AT 


3206 














fEVEnX InDCA nAKn, LVEKX 


3207 


015062 


005203 






INC 


R3 


y40 HILI SECS 


3208 


01 5064 


V/Xfv t tQ 






BR 


31 


f fln n&V. KfVP TTMV 


3309 
















3210 


015066 


032702 


000017 


5*1 


BIT 


#17, R3 


;CHECKr IS IT INDEX HARK •SEC 


32U 


015072 


001001 






BNE 


8K00N 


fIF NOTf SKIP 


3212 


015074 


005203 






INC 


R3 


IIF YES, INCREMENT COUNT 


3213 
















3214 














>SEEK DONE> SAVE RKDS>SEC COUNTER. 
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3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 



015076 
015076 
015102 
015104 
015110 
015112 
015114 
015120 

015122 
015126 
015130 
015134 
015136 
015140 



015144 
015146 



015150 
015152 
015156 
015164 
015166 



015172 
015172 
015174 
015200 
015204 
015212 
015214 
015216 
015220 
015222 
015224 



012746 
010346 
004737 
012616 
012603 
042702 
060203 

012746 
010346 
004737 
012616 
012603 
062703 



012602 
000207 



000004 
105237 
123737 
001402 
000137 



042737 
005327 
000001 
003022 
012737 
000001 
015214 



177760 



MOV 
MOV 
JSR 
MOV 
MOV 
BIC 
ADD 

MOV 
MOV 
JSR 
MOV 
MOV 
ADD 



MOV 
RTS 



*14,-(SP} 

R3.-(SP) 

PCr*««MULI 

(SP)+r(SP) 

(SP)'f«R3 

«177760«R2 

R2,R3 

«512»«(SP) 
R3#-(SPJ 
PC««**MULT 
(SP}'t'f CSP) 
CSP}'f,R3 
1245, R3 



(SP)+rR2 
PC 



nPUT THE NULTIPLER ON THE STACK 
nPUT THE MULTIPLICAND ON THE STACK 

nCALL THE MULTPLY ROUTINE 

MDISREGARD THE MSB'S 

TIGET THE LSB'S OF THE PRODUCT 

ISEEK. TOTAL TIME'CIN DECIMAL) 

>[(R3)X12'»8EC COUNTER1X330X0.01 

;HOTE THERE IS A SCALE FACTOR 

flPUT THE HULTIPLER ON THE STACK 
nPUT THE MULTIPLICAND ON THE STACK 

nCALL THE MULTPLY ROUTINE 

MDISREGARD THE MSB'S 

J (GET THE LSB'S OF THE PRODUCT 

(ASSUMPTION THAT EACH SECTOR 

{TAKES 3.3 MILI SECS. IF THE 

(DISK SPEED IS VERY MUCH DIFRNT 

;FROM THE SPEC SPEED OF 

!l500 RPH (40 MS/REV) » THEN 

;SEC COUNTER MOULD NOT BE AN 

(ACCURATE TIME CLOCK. 

(POP R2 BAK 

(RETURN 



001223 
001223 



91224 BTEOP 



( (••••••«••••«•••••••««•••••••••••••»••«*«•«•••*•••*••*•••••••••• 

(•TEST 12 END OF PROGRAM 

(•THIS IS NOT A TEST BUT IS JUST A LINKAGE 

(•PROVIDED TO TEST ALL THE DRIVES. 
(}•••••••••••••••••••••••••••••••••••«••••••••••••••••••••••••••• 

TST12I SCOPE 

INCB DRVDON 
CMPB DRVDON»DRIVS 
BEQ .*6 
JMP NXTORV 



005037 001102 
005237 001100 



100000 001100 



.SBTTL END OF PASS ROUTINE 

( (••••••••••••••••••••••••••••••••••••••••«•••••••••••••••••••••• 

(•INCREMENT THE PASS NUMBER (IPASS) 

(•INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
(•TYPE "END PASS tXXXXX" (WHERE XXXXX IS A DECIMAL NUMBER} 
(•IF THERE8 A MONITOR 60 TO IT 
(•IF THERE ISN'T JUMP TO ST3 

lEOPI 



lEOPCTI 



SCOPE 






CLR 


ITSTHM 


((EERO THE TEST NUMBER 


INC 


IPASS 


((INCREMENT THE PASS NUMBER 


BIC 


tl00000»IPAS8 


((DON'T ALLON A NEG. NUMBER 


DEC 


(PC)* 


((LOOPT 


.HORD 


1 




BGT 


IDOAGN 


((YES 


NOV 


(PC)*il(PC)+ 


{(RESTORE COUNTER 


.WORD 


1 




$EOPCT 
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3271 


01 5226 


1 04401 


015273 






TYPE 


# 8EN0MG 


mTYPE "end PASS # " 


3272 




01 37 46 


W I i 1910 






MOV 


tPASSff *CSP) 


nSAVE IPASS FOR TYPEOUT 


3273 


015236 


1 04405 








TYPOS 




MGO TYPE--DECIMAL ASCII 


3274 




1 04401 








TYPE 


t tENUliIi 


J J TYPE A NULL CHARACTER 






01 3700 


cm CIA AO 




tGET42 1 


HOV 


9i42> R0 


;|GCT MONITOR ADDRESS 


3276 




00 1 405 








BEQ 


tOOAGN 


MBRANCH IF NO MONITOR 


3277 


01 5252 


000005 








RESET 




3 ^ CLEAR THE WORLD 


3278 




V/vt I Iv 






tCND AO 1 


JSR 


PC # CR0) 


JIGO TO MONITOR 


3279 












MOP 




;|SAVE ROOM 




015260 


000240 








NOP 




; IFOR 


3281 


015262 


000240 








NOP 




;> ACTll 


3282 


015264 








IDOAGNI 








3233 


015264 


000137 








JMP 


9(PC)+ 


! J RETURN 


3284 


015266 


003666 






tRTNAOt 


.HORD 


ST3 




3285 


015270 


377 


377 


000 


SENULLI 


• BYTE 


-1,-1,0 


!INULL CHARACTER STRING 


3286 


015273 


015 


042412 


042116 


tENDMGi 


.ASCIZ 


<15><12>/EN0 


PASS «/ 


3287 


015300 


050040 


051501 


020123 










3288 


015306 


000043 














3289 
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3290 






3291 






3292 






3293 






3294 






3295 






3296 






3297 






3293 






3299 






3300 






3381 






3302 






3303 






3304 






3305 






3306 






3307 






3308 






3309 


015310 




3310 


015310 


010146 


3311 


015312 


010246 


3312 


015314 


012701 


3313 


015320 


012702 


3314 


015324 


012146 


3315 


015326 


104403 


3316 


015330 


002 


3317 


015331 


000 


3318 


015332 


104401 


3319 


015334 


002107 


3320 


015336 


012246 


3321 


015340 


104402 


3322 


015342 


104401 


3323 


015344 


002106 


3324 


015346 


104401 


3325 


015350 


001213 


3326 


015352 


022711 


3327 


015356 


001362 


3328 






3329 


015360 


104401 


3330 


015362 


001716 


3331 


015364 


010546 


3332 


015366 


042716 


3333 


015372 


104402 


3334 






3335 


015374 


012602 


3336 


015376 


012601 


3337 


015400 


000207 


3338 






3339 






3340 






3341 






3342 






3343 






3344 






3345 







001266 
001320 



177777 



{COMMON SUBROUTINES AND HANDLERS 



.SBTTL ESR15 

;ESR15 

JTHIS ROUTINE IS USED TO TYPE OUT ERROR DATA FOR ITEM 15 
JOF THE ERROR TABLE. AT THE TIME OF ENTRY INTO THIS 
;ROUTINE R5 CONTAINS THE DISK ADDRESS FROM WHICH THE 12 
^HEADERS WERE READ, THE SECTOR t'S WHICH GAVE BAD HEADERS HAVE 
»BEEM STORED STARTING AT 'BUFR', THE CORRESPONDING BAD HEADERS 
;HAVE BEEN STORED STARTING AT 'BUFRl'. 

!THE PRINTOUT LOOKS LIKEl 
jSECi HDR RECVD 
>AA 



BBBBBB 


AA«BAD 


SEC * BBBBBB«BAD 


HEADER 


HDRsXXXXXX TRYt« 


Y 




MOV 


R1,-(SP) 


MPUSH Rl ON STACK 


HOV 


R2,-(SP) 


1 (PUSH R2 ON STACK 


MOV 


tBUFR,Rl 


;SEC t'S STORED HERE PREVIOUSLY 


MOV 


*BUFR1,R2 


}BAD HDRS STORED 


HERE PRVSLY 


MOV 


CRU + ,-CSP) 






TYPOS 




(GO TYPE OUT BAD 


SEC t (OCTAL) 


.BYTE 


2 


lONLY 2 DIGITS 




.BYTE 





ISUPRES LDG 0'S 




TYPE 




;TYPE 3 BLNKS 




BLNKS3 








HOV 


CR2)+,-(SP) 


•GO TYPE OUT BAD 


HEADER 


TYPOC 








TYPE 








BLNKS4 








TYPE 








tCRLF 








CHP 


»l77777,(Rn 


jALL BAD SEC *'S 


TYPD OUT? 


BNE 


It 


J IF NOT 00 BAK 




TYPE 








HSG6 








MOV 


R5,.CSP} 


JTYPE OUT EXPCTD 


HEADER FOR 


BIC 


f 160037, (SP} 






TYPOC 




;THAT CYLINDER 




HOV 


CSP}>,R2 


;>POP STACK INTO 


R2 


HOV 


CSP)t,Rl 


nPOP STACK INTO 


Rl 


RTS 


PC 







.SBTTL ESR13 

;ESR13 

JTHIS ROUTINE IS USED WITH 'ERROR 13"' TO TYPEOUT OUT ERROR 
>DATA. THE SECTOR I'S WHICH GAVE BAD HEADERS HAVE BEEN STORED 
> STARTING AT 'BUFR'. THE CORRESPONDING BAD HEADERS HAVE 
(BEEN STORED STARTING AT 'BUFRl', R5 CONTAINS THE EXPECTED 
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SCO 9079 



3346 








JHEADER 


FOR THAT CTLINBER. THE IlfPEOUT LOOKS LIKE 


3347 
















3348 








iSGCt 1 


«DR RCVD 






3349 








1 AA 


BBBBBB 


AA>BAO SEC t 


3350 








1 , 




BBBBBB'BAD HEADER 


3351 








JEXPCTD 


HDRBXXXXXX TRyti 


Y SUR>Z 


3352 
















3353 


015402 


004737 


015310 


eSR13i 








3354 


015406 


104401 


015414 




Tvpr 


f 65t 


1 1 TYPE ASCIZ STRING 


3355 


015412 


000404 








64$ 


((GET OVER THE ASCIZ 


3356 








M65II 


• 


/ SUR*/ 




3357 


015434 






6411 








3358 


015424 


005046 








"(SP) 




3359 


015426 


032705 


000020 




BIT 


#30. R5 


(SUR OR 11? 


3360 


015432 


001401 






BEO 


1 1 




3361 


015434 


005216 






INC 


(SP5 




3362 


015436 


104403 




l«l 


TYPOC 






3363 
















3364 


615440 


104401 


003053 




TYPE 


,MSG13 




3365 


015444 


013746 


001254 




NOV 


RETRY2,-CSP) 




3366 


01 5450 


005316 






INC 


CSP) 




3367 


015452 


104402 






TYPOC 






336B 


015454 


000307 






RTS 


PC 




3369 
















3370 
















3371 










.SBTTL 


ESR30 




3372 








!GSR30 








3373 








JSUBROUTINE TO 


TYPE OUT ERROR 


DATA FOR 'ERROR 20'. AT THE TIME 


3374 








lOr ENTRYr TABLE STARTING AT 


♦BUFR' CONTAINS SECTOR I'S THAT GAVE BAD 


3375 








(HEADERS. TABLE AT 'BUFRl' CONTAINS BAD HEADERS, R5 CONTAINS EXPECTED 


3376 








; HEADER 


rOR THE 


CYLINDER, 'INADR' AND 'OUTAOR' CONTAIN THE CYLINDER 


3377 








(ADDRESSES BETWEEN WHICH THE 


IMPLIED SEEK WAS TRIED. 


3378 
















3379 


015456 


004737 


015402 


ESR30I 


JSR 


PC<ESR13 


(GO TYPE OUT SEC *'S« BAD HDRS 


3380 


015462 


004737 


016244 




JSR 


PCrERR3 


(GET CYL t'S BETWN WHICH SEEK 


3381 














(HAS TRIED 


3362 


015466 


104401 


015474 




TYPE 


,6S( 


{(TYPE ASCIZ STRING 


3383 


015472 


000404 






BR 


64t 


((GET OVER THE ASCIZ 


3364 








!>65ll 


.ASCIZ 


/ CYLAB/ 




3385 


015504 






6411 








3386 


015504 


01 3746 


001 162 




MOV 


(REG0f •(SP) 


(GO TYPE CYL # FROM WHERE 


3387 


015510 


104403 






TYPOS 




(SEEK BEGAN 


3388 


015512 


003 






.BYTE 


3 


(TYPE 3 DIGITS 


3389 


015513 


000 






.BYTE 





(SUPRES LOG 0'S 


3390 


015514 


104401 


015523 




TYPE 


.67* 


((TYPE ASCIZ STRING 


3391 


015520 


000404 






BR 


661 


( (GET OVER THE ASCIZ 


3392 








; (67*1 


.ASCIZ 


/ CYLB»/ 




3393 


015532 






66S! 








3394 


015533 


013746 


001164 




MOV 


$REGl'-(SPj 


(TYPE CYL » TO WHICH SEEK 


3395 


01553S 


104403 






TYPOS 




(WAS DONE 


3396 


015540 


003 






.BYTE 


3 


(TYPE 3 DIGITS 


3397 


015541 


000 






.BYTE 





(SUPRES LDG 0'S 


3398 


015542 


000207 






RTS 


PC 


(RETURN 


3399 
















3400 
















3401 










.SBTTL 


ESR25 





MAINOEC 


-11-DZRKL-D 


MACYll 


27(1006) 04-OCT 


•76 141 


26 PAGE 64 




DZRKLD. 


Pll 31 


-AUC-76 


15135 


ESR25 








3402 


015544 


010205 




ESR25I 


MOV 


R3,R5 


(SAVE ADRES OF TERMINATOR 


3403 
















3404 


015546 


012703 


001366 




MOV 


tBUFR,R3 


(INITLZE PTR TO TABLE STORING 


3405 














(ADRES OF BAD DATA 


3406 


015553 


013703 


001320 




MOV 


IBUFRlrRS 


(INITLZE PTR TO 'EXPCTD' DATA 


3407 


015556 


013704 


001353 




MOV 


t6UFR3,R4 


(INITLZE PTR TO 'RECVD' DATA 


3408 














(INHIBIT TYPE OUT? 


3409 


015563 


033777 


030000 


163350 Itl 


BIT 


»SW13,ISNR 


3410 


015570 


001076 






BNE 


4t 


(YES, EXIT 


3411 


015572 


104401 






TYPE 




(TYPE CR,LF 


3413 


015574 


001313 






8CRLF 






3413 
















3414 


015576 


163713 


001404 




SW 


PBUF0> (R3} 


(GET WORD 1 IN BUFR (0,1,2,.,) 


3415 


015603 


006313 






ASR 


(R3) 




3416 


015604 


011346 






MOV 


(R3).-(SP) 


(WHICH HAS BAD. NOTE YOU 


3417 














(CAN HAVE THE ACTUAL MEMORY 


3418 














(ADRES BY ADDING 'IOBUF0' 


3419 














(TO THIS 


3430 


015606 


104403 






TYPOS 




(GO TYPE WORD * THAT HAS BAD 


3431 


015610 


004 






.BYTE 


4 




3423 


015611 


000 






.BYTE 







3433 


015613 


104401 






TYPE 






3434 


015614 


003107 






BLNK83 




(2 BLANKS 


3435 
















3436 


015616 


013346 






MOV 


(R3)+,-CSP) 


(GET EXPCTD DATA 


3437 


015630 


104403 






TYPOC 




(GO TYPE IT 


3438 


015623 


104401 






TYPE 






3439 


015624 


003110 






BLNKS3 






3430 


015636 


012446 






MOV 


(R4)*,-(SP) 


(GET RECVD DATA (BAD) 


3431 


015630 


104403 






TYPOC 




(00 TYPE IT 


3432 


015633 


104401 






TYPE 






3433 


015634 


003110 






BLNKS3 






3434 
















3435 


015636 


013700 


000400 




MOV 


1400, R0 


(GET THE DISK ADRES FROM 


3436 


015643 


031300 




211 


CMP 


CR3)fR0 


(HHICH THIS (BAD) DATA WAS 


3437 


015644 


003405 






BLT 


3« 


(READ 


3438 


015646 


063700 


000400 




ADD 


I400>R0 




3439 


015653 


023700 


003400 




CMP 


•3400, R0 




3440 


015656 


001371 






BNE 


31 




3441 
















3442 


015660 


000300 




381 


SWAB 


R0 




3443 


015663 


005300 






DEC 


R0 




3444 


015664 


063700 


001450 




ADD 


ADRES,R0 


(R0 CONTAINS THE DISK 


3445 














(ADRES FROM WHICH THE (BAD) 


3446 


015670 


010037 


001170 




MOV 


R0,tREG3 


(DATA HAS READ 


3447 
















3448 


015674 


004737 


016144 




JSR 


PCBRKDA 


(GO BREAK ABOVE DISK ADRES 


3449 














(INTO CYL#, SURt, SEC* 


3450 
















3451 


015700 


013746 


001174 




MOV 


IREG5,-(SP) 


(GET THE CYLi 


3453 


015704 


104403 






TYPOS 




(TYPE II 


3453 


015706 


003 






• BYTE 


3 


(ONLY 3 DIGITS 


3454 


015707 


000 






.BYTE 





(NO LEADING 0'S 


3455 


015710 


104401 






TYPE 






3456 


015713 


002107 






BLNK83 







3457 
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SEQ 0081 



3458 




01 3746 


176 




MOV 


tRES6,>CSP} 


J GET SUR ( 






1 04403 






TYPOS 




• TYPE 




015722 


001 






.BYTE 


1 


}1 DIGIT ONLY 




01 5723 


000 






.BYTE 























3463 


01 5724 


1 a A Acl 1 






TYPE 






3464 


015726 


002 1 vo 






BLNKS4 




3465 
















3466 


a. 


_ 






HOV 


IREG7,»{5P) 


• SEC# 


3467 


015734 








TYPOS 




{TYPE 


3468 


015736 








.BYTE 


2 




3469 


015737 


000 






.BYTE 







3470 
















3471 




WvO 1 






TST 


(R2}'»^ 


JINCREMNT PTR 


3472 


015742 


Iff £ V3 






CMP 


R2,R5 


« TYPED OUT ALL BAD DATA 


3473 














J INFO? 






001 306 






6NE 


It 


(IF NOT LUP BAK 




015746 


104401 






TYPE 






3476 


01 5750 


00205 3 






MSG13 




i ' TRY • I ' 


3477 


015752 




001 254 




HOV 


RETRY2,-(SP) 


;GET RETRY COUNT 


3478 


015756 


06271 6 






ADD 


13, (SP] 


J FORM THE RETRY NO. 






1 04403 






TYPOS 




JTYPE IT OUT 


3490 


015764 








.BYTE 


1 




3481 


015765 


www 






.BYTE 


V 




3482 
















3493 


01 5766 


000207 






4tl RTS 


PC 


I IF YES, RETURN 


3404 










r MESSAGE HANDLER 




3485 










>THE MESSAGE HANDLER IS USED FOR TYPING OUT MESSAGES & DATA 


3486 










^RELATED TO THE MESSAGE. IF SW13 IS SET, THE TYPEOUT IS 


3487 










;INHIBITEO. THE CALL IS: 














i 


MESACE ,XX 




348° 










tXXX IS THE MESSAGE NUMBER & PROVIDES AN INDEX TO THE 


3490 










; 'ERROR ITEMS 


TABLE' WHERE. THAT 


HESAGE ITEM 












;IS LOCATED. 
















;THE MESAGE ITEM CONTAINS! 




3493 










; MSI 


POINTER TO THE 


ASCII HESAGE 












> dh: 


POINTER TO THE 


DATA HEADER 


IdOS 










J DTt 


POINTER TO THE 


DATA 


3496 










; 


TERMINATOR 




3497 










;IF 'DT' IS 


THE DATA IS TO BE 


PRINTED USING THE SUBROUTINE 


3498 










; INDICATED IN 


PLACE OF THE TERMINATOR 


















3500 


01 5770 


032777 


020000 


163142 


MSGEJ BIT 


f SH13,9SUR 


! INHIBIT TYPEOUT? 






001 01 2 






BNE 


It 


J IF YES, EXIT 


3502 


1 6000 




001116 




MOV 


(SP),tERRPC 


;GET AORES OF 'HESAGE' CALL 




a 1 can A 


162737 


bWW £ 




SUB 


t2,tERRPC 


J STORE IT 


3504 




1 1 7637 


OLUklXOtAOk 

wvwv 


001114 


MOVB 


»(SP),tITEMB 


>SET MESAGE 1 (INDEX TO ITEM 


3505 


016020 


004737 


017362 




JSR 


PCPIERRTYP 


•GO TO 'ERRTYP' S TYPE OUT 


3S06 














JINFO 


3507 


016024 


062716 


000002 




l$l ADD 


t2, CSP) 


; ADJUST RETURN ADORES 


3508 


016030 


000002 






RTI 




;exit 


3509 
















3510 










;THIS ROUTINE 


IS USED FOR TYPING OUT ASCII MESSAGES. BEFORE 


3511 










;THE MESSAGE IS TYPED SW13 IS CHECKED ( IF SET THE 


3512 










sTYPEOUT IS INHIBITED & A» EXIT 


IS MADE. 


3513 










STHE CALL- FOR 


THIS ROUTINE IS " 


TYPHSG", AN ENCODED 
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3514 








3515 








3516 








3517 








3518 


016032 


032777 


020000 


3519 


016040 


001005 




3520 


016042 


017637 


000000 


3521 


016050 


104401 




3522 


016062 


000000 




3523 


016054 


062716 


000002 


3524 








3525 


016060 


000002 




3526 








3527 








3528 








3529 








3530 








3531 








3532 








3533 


016062 


017746 


163376 


3534 


016066 


042716 


160037 


3535 


016072 


006316 




3536 


016074 


006316 




3537 


016076 


006316 




3538 


016100 


000316 




3539 


016102 


112637 


001172 


3540 








3541 








3542 








3543 








3544 








3545 








3546 








3547 








3548 


016106 


017737 


163344 


3549 


016114 


017737 


163334 


3550 


016122 


017737 


163334 


3551 


016130 


017737 


163330 


3552 


016136 


000207 




3553 








3554 








3555 








3556 








3557 








3558 








3559 








3560 


016140 


004737 


016106 


3561 


016144 


010046 




3562 


016146 


010146 




3563 


016150 


010246 




3564 


016152 


012700 


001202 


3565 


016156 


013701 


001170 


3566 


016162 


010102 




3567 


016164 


042702 


177760 


3568 


016170 


010240 




3569 


016172 


006201 





JTPAP INSTRUCTION. 

:THE POINTER TO THE ASCII MESSAGE TO BE TYPED IS LOCATED IN 
>HORO FOLLOWING THE 'TYPHSG" CALL. 



016052 



001162 
001164 
001166 
001170 



Itl 
2t( 



BIT tSW13,9SWR 

BNE 3t 

MOV 9(SP),lt 

TYPE 



ADD f2,(SP) 
RTI 



j inhibit type0ut7 
;yes, exit 

;get pointer to ascii message 
;g0 type ascii string 

{adjust return adres, skip over 
(pointer on return 

(EXIT 



;GTSRG 

(THIS ROUTINE EXTRACTS THE CYLINDER f FROM RKDA AND STORES IT 
(IN tREG4. THEN TRANSFERS RKCS, ER, DS, DA TO tREG0, tRGGl, tREG2, 



GT5RG! 


HOV 


iRKOA,«(SP) 


(PUSH RKDA ONTO STACK 




BIC 


tl600}7,(SP} 


(MASK OUT NON-CYLINDER BITS 




ASL 


(SP) 


(SHIFT 8 BITS OF CYL ADRES TO 




ASL 


(SP) 






ASL 


(SP) 






SWAB 


(SP) 






MOVB 


(SP)4,*REG4 


(UP STACK 


(GT4RG 








(THIS 


ROUTINE 


TRANSFERS THE CONTENTS OF RKCS, RKER, RKDS 


(RKDA 


TO tRE60 


i, tREGl, tREG2, 


tREG3 RESPECTIVELY. tREG'S 


(ARE USED FOR 


TYPING OUT THERE 


CONTENTS AT THE TIME OF ERROR 


GT4RG! 


MOV 


•RKC8,tREG0 


(GET RKCS 




MOV 


9RKBR, tREGl 


( RKER 




MOV 


•RKDS,tREG2 


( RKDS 




HOV 


•RKDA,tREe3 


( RKDA 




RTS 


PC 


(EXIT FROM THIS ROUTINE 



SGETINF 

(THIS ROUTINE SAVES THE CONTENTS OF RKCS IN tREG0 
(RKER IN tREGl, RKDS IN tRE63. THEN IT BREAKS RKDA 
(INTO DRIVE NO, CYLINDER 1, SURFACE AND SECTOR *. 
(AND SAVES THEM IN tREG4, tREGS, tREG6, «REG7. 



GETINFI JSR 
BRKOAt HOV 
HOV 
HOV 
MOV 
MOV 
HOV 
BIC 
MOV 
ASR 



PC^GT4RG 

Re,-(SP) 

R1,-(8P) 

Ra,-CSP) 

ltRE67'f2,R0 

tREG3,Rl 

R1,R2 

1177760, R2 

R2,-<Re) 

Rl 
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SEQ 



3570 


016174 


006201 




A8R 


Rl 


3571 


016176 


006201 




ASR 


Rl 


3572 


016200 


006201 




ASR 


Rl 


3573 


016202 


010102 




MOV 


R1»R2 


3574 


016204 . 


042702 


177776 


BIC 


#177776»R2 


357S 


016210 


010240 




MOV 


R2r«CR0] 


3576 


016212 


006201 




ASR 


Rl 


3577 


016214 


010102 




MOV 


Rl rR2 


3578 


016216 


042702 


177400 


BIC 


I177400>R2 


3579 


016232 


010240 




MOV 


R2>«tR0) 


3580 


016224 


000301 




SWAB 


Rl 


3581 


016226 


042701 


177770 


BIC 


1177770, Rl 


3582 


016232 


010140 




MOV 


R1#«(R0> 


3583 


016234 


012602 




" MOV 


(SP)'f,R2 


3584 


016236 


012601 




MOV 


C8P}'»«R1 


3585 


016240 


012600 




MOV 


CSP)t«R0 


3586 


016242 


000207 




RTS 


PC 



3587 
3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3613 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3630 
3631 
3632 
3623 
3624 
3625 



016244 
016252 
016256 
016364 
016272 
016376 
016300 
016302 
016306 
016314 
016320 



016323 
016336 
016332 
016334 
016336 
016344 



013737 
004737 
013737 
013737 
004737 
005704 
001407 
013746 
013737 
012637 
000307 



010537 
004737 
005704 
001006 
013737 
005037 



001260 001162 
016360 

001163 i 001164 
001263 ! 001163 
016360 



001163 

001164 001163 
001164 



001163 
016360 



001163 
001163 



.SBTTL eRR3 

ieRR3 

;THIS ROUTINE GETS THE CYLINDER NUMBERS BETWEEN WHICH (IMPLIED) SEEK 

)HAS DONE. (R4)a0 INDICATES SEEK rROM 'OUTADR' TO 'IHADR' 

;(R4]B1 INDICATES SEEK TO 'OUTADR'. ON EXIT tRE60 CONTAINS CYL « 

I PROM WHICH SEEK HAS INITIATED, tREGl CONTAINS CYL « TO WHICH SEEK WAS DONE 

ERR3I MOV IHADR, IREC0 ;GET CYL ADRES 

J8R PCGCYL ;G0 GET CYLI PROM IT 

MOV •REG0,«RES1 (SAVE 

MOV OUTADR, «REG0 I GET CYL ADRES 

J8R PCGCYL ;G0 GET CYL * FROM IT 

TST R4 (GOING WHICH WAY? 

BEQ It > 'OUTADR' TO 'INAOR', BRANCH 

MOV IREG0,-(SP) iEXCHANG CYL" TO GET 

MOV IREC1,IREC0 (CORRECT 'TO' i 'PROM' CYLS 

MOV (SP)+,«RE61 
111 RTS PC (RETURN 

.SBTTL ERRl 

(ERRl 

(THIS SUBROUTINE flNOS OUT THE CYLINDER NOS. BETWEEN WHICH THE SEEK 
(IS DONE. THE CYLINDER I WHERE THE HEADS WHERE PRIOR TO MOVING, IS 
(DEPOSITED IN tREGS. THE CYLINDER 9 WHERE THE HEADS SHOULD BE AFTER 
(MOVEMENT, IS DEPOSITED IN IREGl. R4 INDICATES WHICH DIRECTION THE 
(HEADS WERE MOVING, IN OR OUT. RS CONTAINS THE 
(DISK ADDRESS (IN OR OUT AS THE CASE MAY BE}. 

ERRl I MOV RS,IREC0 

JSR PCGCYL (GO GET CYL t 

TST R4 (WAS GOING IN OR OUT? 

BNE It (OUT 

MOV IREC0, tREGl 

CLR IREG0 
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3636 


016350 


000207 








RTS 


PC 




3627 


016352 


005037 


001164 




Itl 


CLR 


tREGl 




3638 


016356 


000307 








RTS 


PC 




3639 


















3630 


















3631 












.SBTTL 


GCYL 




3633 










IGCYL 








3633 










(THIS ROUTINE EXTRACTS THE 


CYLIHDBK NO. PROM THE DISK ADDRESS 


3634 










(CONTAINED IN ' 


tREG0', AND 


THEN STORES IT BACK IN 'tREG0' 


3635 


016360 


010046 






GCYLI 


MOV 


R0,<(SP) 


(PUSH R0 ONTO STACK 


3636 


016362 


013700 


001162 






MOV 


tREG0,R0 




3637 


016366 


043700 


160037 






BIC 


•160037, R0 


(MASK OUT DRV f BITS I 


3638 
















(SUR, SEC BITS IF PRESENT 


3639 


016373 


006200 








ASR 


R0 




3640 


016374 


006300 








ASR 


R0 


(SHIFT CYL BITS RIGHT 


3641 


016376 


006300 








ASR 


R0 


(BY 5 


3643 


016400 


006300 








ASR 


R0 




3643 


016403 


006300 








ASR 


R0 




3644 


016404 


010037 


001162 






MOV 


R0,tREG0 


(STORE CYL 1 IN tREG0 


3645 


016410 


013600 








MOV 


(SP)4,R0 


(POP R0 FROM STACK 


3646 


016413 


000307 








RTS 


PC 


(EXIT 


3647 


















3648 


















3649 












.SBTTL 


DRV. RESET • 


■ DRIVE RESET ROUTINE 


3650 












.SBTTL 


RE8D0N - WAIT FOR DRIVE RESET TO BE DONE 


3651 










(DR.RST 








3652 










(THIS ROUTINE DOES A DRIVE 


RESET ON THE DRIVE WHOOSE ADDRESS IS IN 


3653 










(RKDA. 


MULTIPLE 


RETURN ADDRESSES FOR THIS ROUTINE ARE PROVIDED. 


3654 










(IP THERE IS NO 


ERROR (R/N/S RDY SETS WITHIN CERTAIN TIME) , THEN 


3655 










(A NORMAL EXIT 


IB HADE. IF 


R/W/S RDY DOES NOT SET ERROR IS REPORTED 


3656 


















3657 


















3658 


016414 


005037 


001174 




DR.RSTI 


CLR 


tREGS 


(INITIALIZE THE COUNT 


3659 


016430 


013777 


001330 


163036 




MOV 


DRIVAD,»RKDA 


3660 


016426 


013777 


000015 


163022 




MOV 


*15,»RKCB 


(DRIVE RESET, GO 


3661 


016434 


104431 








CON.RDY 






3663 


016436 


000403 








BR 


RES. 00^4 




3663 


016440 


005037 


001174 




RES. DDI 


CLP 


• REGS 




3664 


016444 


032777 


000100 


163000 


Itl 


BIT 


•100,|RKOS 


(DID R/W/S ROY SETt 


3665 


0164S3 


001024 








BNE 


2t 




3666 


016454 


012746 


177770 






MOV 


f>10,*(8P) 


(PUSH COUNT ON SP 


3667 


016460 


005216 








INC 


(SP) 


(COUNT IT DOW 


3668 


016462 


001376 








BNE 


.•2 




3668 


016464 


0057361 








TST 


IBP)* 


(POP UP tP 


3670 


016466 


005237 


001174 






INC 


IREQ5 


(IF NOT WAIT 


3671 


016473 


001364 








BNE 


It 


(WAITED LONG? 


3673 


016474 


033777 


030000 


163436 




BIT 


t8Hl3,»8HR 




3673 


016503 


801010 








BNE 


31 




3674 


016904 


104430 








TYPNSfi 






3675 


016S06 


002027 








Msei3 






3676 


016510 


104420 


001733 






TTPM86 


,H8G7 




3677 


016514 


011646 








MOV 


(SP),*(8P) 




3678 


016516 


162716 


000002 






SUB 


«3,(>P) 




3679 


016533 


104402 








TYPOC 






3680 


016534 


000002 






2tl 


RTI 






3681 
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3E& eess 



3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 
3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 



.SBTTIi CON, RESET • CONTROL RESET ROUTINE 
,SBTTL CON, ROY • WAIT FOR CONTROL READY 

;CON. RESET 

SCON.RDY 

JTHIS ROUTINE IS CALLED BY USINS 'CNT. RESET' WHICH IS ACTUALLY 

J'TRAP* INSTRUCTION WITH THE LOWER BYTE ENCODED TO PROVIDE 

(AN INDEX TO THE CONTROL-RESET ROUTINE BELOW. 

>THE ROUTINE ISSUES A CONTROL RESET AND WAITS FOR 

JTHE 'CNTRL ROY' FLAG TO SET. WHEN THE FLAG SETS 

IAN EXIT IS HADE OUT OF THE ROUTINE. IF 'CNTRL-ROY' 

;DOES NOT SET WITHIN A CERTAIN TIME AN ERROR MESSAGE 

; CNT RDY DIDN'T SET 

; POXXXXXX RKCSaXXXXXX 

>IS GIVEN. 

JTHIS ROUTINE IS CALLED THROUGH THE 'TRAP' INSTRUCTION 
;USING THE LOWER BYTE AS AN INDEX TO THIS ROUTINE. 
STHE TRAP DECODER LOCATED AT '(TRAP', 



JCN.ROY 

ITHE Cn.RDI ROUTliiE IS CALLED BY USING CNT, RDY nHICH IS A TSAP 
^INSTRUCTION WITH ITS LOWER BYTE ENCODED. 

J THIS ROUTINE WAITS FOR THE CONTROL READY BIT TO SET AND WHEN IT 
{SETS EXITS OUT, IF WITHIN A CERTAIN TIME CNTRL RDY DOES 
>NOT SET AN ERROR IS REPORTED. WAITING TIME IS 883 MS FOR 11/20 
;175 MS FOR 11/45 WITH BIPOLAR MEMORY. 



3711 


016526 


012777 


000001 


162722 


CN.RSTI 


HOV 


*1>»RKCS 


1 ISSUE A CONTROL RESET 


3712 


016534 


012737 


177500 


001170 




HOY 


l-300f IREG3 


J SET UP COUNT 


3713 


016542 


000402 








BR 


CN.RDY+4 


(SKIP OVER CN.ROY 


3714 


016544 


005037 


001170 




CN.ROYI 


CLR 


SREG3 




3715 


016550 


105777 


162702 




181 


TSTB 


»RKCS 


JDID CNTRL-RDY SET? 


3716 


016554 


100431 








BMI 


2t 


TYES, EXIT 


3717 


016556 


005237 


001170 






INC 


(REG3 


J WAITED LONG? 


3718 


016562 


001372 








BNE 


11 


tIF NOT, GO BAK & WAIT 


3719 


016564 


104420 








TYPMSG 






3720 


016566 


001742 








HSG10 






3721 


016570 


104401 


016576 






TYPE 


,65t 


JJTYPE ASCIZ STRING 


3722 


016574 


000403 








BR 


641 


nGET OVER THE ASCIZ 


3723 










j»65$: 


.ASCIZ 


<15><12>/PC«/ 




3724 


016604 








64Si 








3725 


016604 


011646 








HOV 


CSP)f-CSP) 




3726 


016606 


162716 


000002 






SUB 


*2>(SP) 




3727 


016612 


104402 








TYPOC 




;G0 TYPE PC IN THE MAIN PROGRAM 


3728 
















! WHERE ERROR OCCURRED 


3729 


016614 


104401 


016622 






TYPE 


f 67S 


JITYPE ASCIZ STRING 


3730 


016620 


000404 








BR 


663 


rjGET OVER THE ASCIZ 


3731 










;»67$i 


.ASCIZ 


/ RKCS»/ 




3732 


016632 








66$t 








3733 


016632 


017746 


162620 






HOV 


gRKCS#-(SP) 


J GET RKCS 


3734 


016636 


104402 








TYPOC 




>G0 TYPE IT 


3735 


















3736 


016640 


000002 






2$i 


RTI 




JRETURN FROM THIS 



3737 



JROUTINE TO THE MAIN 
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SEQ 0086 



3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 



3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
3791 
3792 
3793 



{PROGRAM 

.SBTTL TST.RWS - WAIT FOR R/W/s RDY 

;TST.RWS 

jTHIS ROUTINE WAITS FOR THE R/W/S READY TO ET AND RETURNS 
JTO THE MAIN PROGRAM WHEN IT SETS. IF IT DOES NOT SET 
JWITHIN A CERTAIN TIME AN ERROR IS REPORTED. 
JWAITING TIME APPROX. 1040 MS FOR 11/20, 208 MS FOR 11/45 



3748 


016642 


005037 


001264 




TSTRWSS 


CLR 


TIMER 


3749 


016646 


032777 


000100 


162576 


1$! 


BIT 


*100,9RKDS 


3750 


016654 


001017 








BNE 


2S 


3751 


016656 


005337 


001264 






INC 


TIMER 


3752 


016662 


001371 








BNE 


1» 


3753 


016664 


032777 


020000 


162246 




SIT 


»BIT13,9SWR 


3754 


016672 


001010 








BNE 


2t 


3755 


016674 


104420 


002027 






TYPMSG 


,MSG12 


3756 


016700 


104420 


001733 






TYPMSG 


«MSG7 


3757 


016704 


011646 








MOV 


(5P),-CSP) 


3758 


016706 


162716 


000002 






SUB 


*2,CSP} 


3759 


016712 


104402 








TYPOC 




3760 


016714 


000002 






2$t 


RTI 




3761 
















3762 












.SBTTL 


TEST ABORT 1 



016716 104401 

016722 113746 

016726 104402 

016730 000207 



001616 
001102 



;ABRT 
ABRTI 



TYPE 
MOVE 
TYPOC 
RT5 



>MSG3 

$TSTNM,-CSP) 



PC 



{COMMON SUBROUTINES & HANDLERS 
.SBTTL SCOPE HANDLER ROUTINE 

; I •••»»•••»•«••«•••»•»••*•••*«•*•••««•••««••*«•••••••*•**••••••*'» 

!»THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

J»AND LOAD THE TEST NUmBERCITSTHM) INTO THE DISPLAY REG. CDISPlAY<7 » 0>) 

:*ANO LOAD THE ERROR FLAG (8ERFLG) INTO DISPLAY<15|08> 

;»THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE AREJ 

;*SW14«1 LOOP ON TEST 

}*SU09«1 LOOP ON ERROR 

;»CALL 

SCOPE mSCOPEbIOT 



016732 

016732 104407 

016734 032777 

016742 001053 



•SCOPEI 



016744 
016752 



032777 
001047 



000400 
040000 



CKSWR 

BIT 

BNE 



tSH8,8SHR 
lOVER 



; {TEST 



016754 000416 



162166 Itl BIT IBIT14,»SWR 

BNE tOVER 

;*ttl*START OF CODE FOR THE XOR TESTER****! 
IXTSTRI BR 6* HIF RUNNING ON THE 



FOR CHANGE IN SOFT-SWR 
(WAS SW8 USED TO SELECT 
!A TEST? IF YES, SKIP OVER 
;THE REST, U ARE LOOPING ON 
{{LOOP ON PRESENT TEST? 
{{YES IF SW14S1 



■XOR" TESTER CHANGE 
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8EQ eee7 



3794 
















JJTHIS INSTRUCTION TO A "NOP" (NOP«340) 


3795 


0167S6 


013746 


000004 






MOV 


f «eRRVEC>«(SP} 


nSAVE THE CONTENTS OF THE ERROR VECTOR 


3796 


016762 


012737 


017002 


000004 




MOV 


tStf »*ERRVEC 


> >SET FOR TIMEOUT 


3797 


016770 


005737 


177060 






1ST 


•«177060 


J J TIKE OUT ON XOR? 


3798 


016774 


012637 


000004 






MOV 


CSP}'f>»«ERRVEC 


; J RESTORE THE ERROR VECTOR 


3799 


017000 


000421 








BR 


ISVLAD 


tiGO TO THE NEXT TEST 


3800 


017003 


022626 






5lt 


CMP 


(8P}+r (SP)« 


; (CLEAR THE STACK AFTER A TIME OUT 


3801 


017004 


012637 


000004 






Kb« 


(SP)'t'>8tERRVEC 


n RESTORE THE ERROR VECTOR 


3803 


017010 


000407 








BR 


7» 


MLOOP ON THE PRESENT TEST 


3803 


017012 








6tl)tt*if*END or CODE TOR THE XOR TGSTERIiIti 


3804 


017012 


105737 


001 103 




2*1 


TSTB 


lERFLS 


nHAS AN ERROR OCCURRED? 


3809 


017016 


001412 








BEQ 


tSVLAO 


nBR IF NO 


3806 


017020 


032777 


001000 


163112 




BIT 


tBITe9,»SWR 


tiLOOP ON ERROR? 


3807 


017036 


001404 








BEQ 


41 


MBR IF NO 


3806 


017030 


013737 


001 1 10 


001 106 


711 


MOV 


ItiPERRttLPADR 


nSET LOOP ADDRESS TO LAST SCOPE 


3809 


017036 


000419 








BR 


lOVER 




3810 


017040 


105037 


001 103 




411 


CtRB 


lERFLG 


nZERO THE ERROR FLAG 


3811 


017044 


105237 


001102 




ISVLADI 


INCB 


ITSTNH 


M COUNT TEST NUMBERS 


3812 


017050 


011637 


001106 






MOV 


(SP)r*LPAOR 


MSAVE SCOPE LOOP ADDRESS 


3813 


017054 


011637 


001110 






MOV 


CSP)>SI,PERR 


MSAVE ERROR LOOP ADDRESS 


3814 


017060 


005037 


001204 






CLR 


•ESCAPE 


U CLEAR THE ESCAPE FROM ERROR ADDRESS 


3815 


017064 


112737 


000001 


001115 




MOVB 


•IrtERMAX 


J I ONLY ALLOW ONE(l) ERROR ON NEXT TEST 


3816 


017072 


013777 


001103 


162042 


tOVERl 


MOV 


STSTNHf0DISPI,AY 


n DISPLAY TEST NUMBER 


3817 


017100 


013716 


001106 






MOV 


ILPADR,(8P) 


MEUDGE RETURN ADDRESS 


3818 


017104 


000002 








RTI 




;|FIXES PS 


3819 
3820 










J 1 •*«••«»*••*•««•«•••**•«•«••*•»«••••»*•••«*»»•••»*•«••«••••* 


3821 


















3822 


















3823 










.SBTTL 


ERROR 


HANDIER ROUTINE 




3824 


















3825 










;«SHt5*l 


HALT ON ERROR 




3826 










;*SM13«1 


INHIBIT ERROR TYPEOUTS 


3827 










;*SW10«1 


BELL ON ERROR 




3828 










|*SN09al 


LOOP ON ERROR 




3829 










;*SW12al 


CYCLE ON ERROR 


TO PREVIOS 'SCOPE' STATEMENT 


3830 










t»GO TO 


ERRTYP 


ON ERROR 




3831 










;»NOT FROM SYSHAC 




3832 


















3833 


017106 


104407 






(ERROR! 


CKSWR 




(CHECK FOR SOFTWARE SNITCH REGISTER 


3834 


017110 


105237 


001103 




7«i 


1NC8 


»ERFLG 


J SET THE ERROR FLAG 


3835 


017114 


001775 








BEQ 


7» 


JDON'T LET THE FLAG GO TO ZERO 


3836 


017116 


013777 


001102 


162016 




MOV 


ITSTNH, 0DISPLAY 




3837 


017124 


032777 


003000 


162006 




BIT 


•SHt0«fSHR 




3838 


017132 


001402 








BEO 


It 




3839 


017134 


104401 


001206 






TYPE 


f «BELL 




3840 


017140 


005237 


001112 




Itl 


INC 


«ERTTL 




3841 


017144 


011637 


001116 






MOV 


(SP}«tERRPC 




3842 


















3843 


017150 


032777 


000004 


161763 




BIT 


f SW2>9SHR 


;DROP THE DRIVE? 


3844 


017156 


001404 








BEO 


SC 


}SW NOT SET, SKIP 


3849 


017160 


023727 


001112 


000006 




CMP 


«ERTTL»t6 


SHORE THAN 6 ERRORS ON THIS DRIVE? 


3846 


017166 


101040 








BHI 


6t 


;YES, DROP THE DRIVE 


3847 


















3848 


017170 


162737 


000002 


001116 




SUB 


*2,$ERRPC 




3849 


017176 


117737 


161714 


001114 




HOVB 


•tERRPCftlTEMB 





I 
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ERROR HANDLER 


ROUTINE 




3850 


017304 


032777 


020000 


161726 


BIT 


«SM13,8SWR 




3851 


017313 


001004 






BNE 


21 




3853 


017314 


004737 


017362 




JSR 


PCr»*ERRIYP 




3853 


017330 


104401 


001213 




TYPE 


,(CRLF 




3854 


017334 


005777 


161710 


211 


TST 


9SWR 




3855 


017330 


100003 






BPL 


3« 




3856 


017333 


000000 






HALT 






3857 


017334 


104407 






CKSMR 




ICHECK FOR SOFTWARE SWITCH 


3858 


017336 


033777 


010000 


161674 3tl 


BIT 


*SH12,fSWR 




3859 


017244 


001403 






BEO 


.+6 




3860 


017346 


013716 


001106 




MOV 


«LPADR,C8P) 




3861 


017392 


033777 


001000 


161660 


BIT 


•SW09,|SWR 




3863 


017360 


001402 






BEO 


41 




3863 


017363 


013716 


001110 




HOV 


*LPERR#(SP} 




3864 


017266 


000003 




4tl 


RTI 






3869 
















3866 


017270 


013746 


001226 


611 


MOV 


ORVPIR,-(8P3 


IGET POINTER TO DRIVE 1 


3867 


017374 


162716 


000002 




SUB 


12, (SP) 




3868 


017300 


042736 


000377 




BIC 


»377,0(SP)+ 


(CLEAR THE DRIVE PRESENT FLAG 


3869 


017304 


104401 


002064 




TYPii 


,MSG14 




3870 


017310 


013746 


001230 




HOV 


DRIVAD,>(8P} 




3871 


017314 


000241 






etc 




(GET THE DRIVE « 


3873 


017316 


006116 






ROL 


(SP) 




3873 


017320 


006116 






ROL 


(SP) 




3874 


017323 


006116 






ROL 


(SP) 




3875 


017334 


006116 






ROL 


(SP) 




3876 


017326 


104402 






TYPOC 




;TYPE IT OUT 


3877 


017330 


104401 


017336 




TYPE 


,65* 


nTYPE ASCIZ STRING 


3878 


017334 


000405 






BR 


648 


nCET OVER THE ASCIZ 


3879 








n65$i 


.ASCIZ 


/ DROPPED/ 




3880 


017350 






64*1 








3881 


017350 


105337 


001224 




DECS 


DRIVS 


IDECRMNT « OF DRIVS PRESENT 


3882 


017354 


023636 






CMP 


(SP)+,(SPJt 


(RESTORE STACK 


3883 


017356 


000137 


015156 




JMP 


BIEOP 


(EXIT 


3884 
















3885 


017363 






ERRTYP « 








3886 


017362 


104401 


001213 




TYPE 


rtCRLF 


("CARRIAGE RETURN" ( LINE FEED" 


3887 


017366 


010046 






MOV 


R0,-(8P) 


(SAVE R0 


3888 


017370 


009000 






CLR 


R9 


(PICKUP THE ITEM INDEX 


3889 


017373 


153700 


001114 




BISB 


•tlITEMB,R0 




3890 


017376 


001011 






BNE 


11 


(IF ITEM NUMBER IS ZERO, JUST 


3891 
















3893 














(TYPE THE PC OF THE ERROR 


3893 


017400 


013746 


001116 




MOV 


IERRPCf(SP] 


(SAVE lERRPC FOR TYPEOUT 


3894 














(ERROR ADDRESS 


3895 


017404 


104402 






TYPOC 




(GO TYPE--OCTAL ASCIKALL DIGITS) 


3896 


017406 


104401 






TYPE 






3897 


017410 


001733 






HSG7 






3898 


017413 


013746 


00U16 




MOV 


IERRPC,-(SP) 




3899 


017416 


104402 






TYPOC 






3900 


017430 


000440 






BR 


61 


(GET OUT 


3901 


017423 


005300 




111 


DEC 


R0 


(ADJUST THE INDEX 80 THAT IT WILL 


3903 


017424 


006300 






ASL 


R8 


1 WORK FOR THE ERROR TABLE 


3903 


017436 


006300 






ASL 


P0 




3904 


017430 


006300 






ASL 


P0 




390S 


01^432 


06J700 


002122 




ADD 


»(ERRTB,R0 


J FORK TABLE POINTER 



SEQ 0088 



IIHDEC 


-U-DZRKti-D 


HACyU 27(1006) 04-OCT 


-76 14126 PAGE 73 




tRKLD.Pll 31 


.-AUG-76 


15135 EPRRR HANDLER 


ROUTINE 




39e6 


017436 


012037 


017446 


MOV 


CR0)*,2» 


jPICKUP "ERROR MESSAGE*^ POINTER 


3907 


017442 


001404 




BEQ 


31 


7SKIP TYPEOUT IF NOT POINTER 


3909 


017444 


104401 




TYPE 




JTYPE THE "ERROR MESSAGE" 


3909 


017446 


000000 


2S ! 


.WORD 





J"CARRIAGE RETURN" 6 LINE FEED" 


3910 


017450 


104401 


001213 


TiPE 


fICRLF 


JPICKUP "DATA HEADER" POINTER 


3911 


017454 


032777 


004000 161456 311 


BIT 


tSMl 1 , 0SHR 


;DUMP OUT ALL RK REGISTERS 


3912 


017462 


001042 




BNC 


10t 


;YES> BRANCH 


3913 


017464 


012037 


017474 


MOV 


(R0)+>4t 


"PICKUP "DATA HEADER" POINTER 


391 4 


017470 


001412 




BEQ 


5$ 


ISKIP TYPEOUT IF 


3915 


017472 


104401 




TYPE 




ITYPE THE 'DATA HEADER" 


39l6 


017474 


000000 


4t 1 


• WORD 





f'OATA HEADER" POINTER GOES HERE 


39l7 


017476 


104401 


001213 


TYPE 


>ICRLF 


("CARRIAGE RETURN" b LINE FEED" 


391 8 


017502 


062700 


000002 


ADD 


t2f R0 


I FORM POINTER TO TERMINATOR 


39l9 


017506 


005710 




TST 


(R0) 


;IS THE TERMINATOR 07 


3920 


017510 


001017 




BNE 


9« 


;IF NOT» BRANCH 


3921 


017512 


162700 


000002 


SUB 


«2>R0 


;YGS( IT IS 0t REPOINT TO "DATA" 


3922 












>G0 TYPE OUT DATA AS USUAL 


3923 


017516 


011000 


51 1 


MOV 


CR0),R0 


JPICKUP "DATA TABLE" POINTER 


3924 


017520 


001004 




BNE 


71 


tGO TYPE THE DATA 


3925 


017522 


012600 


6$ t 


MOV 


CSP}+f R0 


{RESTORE R0 


3926 


017524 


104401 


001213 


TYPE 


,ICRLF 


("CARRIAGE RETURN" 6 LINE FEED' 


3927 


017530 


000207 




RTS 


PC 


(RETURN 


3928 


017532 




7ti 








3929 


017532 


013046 




MOV 


(lCR0) + »-t5P3 


(SAVE 9CR0}+ FOR TYPEOUT 


3930 


017534 


104402 




TYPOC 




(GO TYPE'-OCTAL ASCIICALL DIGITS} 


3931 


017536 


005710 




TST 


CRB) 


(IS THERE ANOTHER NUMBER? 


3932 


017540 


001770 




BEQ 


6* 


;BR IF MO 


3933 


017542 


104401 


0021 10 


TYPE 


,BLNKS2 




3934 


017546 


000771 




BR 


7t 




3935 


017550 


004770 


000000 9$t 


JSR 


PC,»(R0) 


(GO TO THE SPECIAL ERROR 


3936 












(DATA HANDLING SUBROUTINE 


3937 












(NOTE THAT THIS ROUTINE IS 


3938 












(THE ONE INDICATED IN THE 


3939 












(LAST WORD OF AN ERROR 


3940 












(ITEM IN THE ERROR TABLE 


3941 












((STARTING AT lERRTB) 


3942 


017554 


104401 




TYPE 






3943 


017556 


001733 




MS67 






3944 


017560 


013746 


001116 


MOV 


»ERRPC»-(SP) 




3945 


017564 


104402 




TYPOC 






3946 


017566 


000755 




BR 


61 


(GO BACK, TO THE EXIT POINT 


3947 












(FOR 'ERRTYP' 


3948 














3949 


017570 


004737 


017576 10t: 


JSR 


PC.OMPREG 




3950 


017574 


000752 




BR 


61 




3951 














3952 














3953 














3954 






;dmpreg 






■ 


3955 






J DUMPS 


OUT ALl 


RK REGISTERS WHEN 


[ SW 11 IS SET 


3956 














3957 


017576 




DHPRCGi 








3958 


017576 


104401 


017604 


TYPE 


,651 


{(TYPE ASCIZ STRING 


3959 


017602 


000441 




BR 


64 1 


{(GET OVER THE ASCIZ 


3960 






n6S$l 


.ASCIZ 


<15><12>/ PC 


RKOS RKER RKCS RKWC 


3961 


017706 




64$: 
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3962 


017706 


013746 


001116 




MOV 


ICRRPC«-(SP} 




3963 


017712 


104402 






TYPOC 






3964 


017714 


104401 


002110 




TYPE 


,BLNKS2 




3965 


017720 


010046 






MOV 


R0.-(SP) 




3966 


017722 


012700 


001452 




HOV 


«RKDS>R0 




3967 


017726 


013046 




is: 


MOV 


»(R0)'f,-(SP) 




3968 


017730 


104402 






TYPOC 






3969 


017732 


104401 


002110 




TYPE 


,BLNKS2 




3970 


017736 


020027 


001466 




CMP 


R0>tRKDB 




3971 


017742 


003771 






BLE 


It 




3972 


017744 


012600 






MOV 


(SP)t,R0 




3973 


017746 


000207 






RTS 


PC 




3974 
















3975 
















3976 
















3977 
















3978 
















3979 








.SBTTL 


CONVERT 


BINARY TO DECIMAL AND TYPE ROUTINE 


3980 
















3981 








( 1 •«•«•••«•*••••••*••••••»«*•*•«••••••«•«•«•••«*•••**•••»••••««•* 


3982 








(•THIS 


ROUTINE 


18 USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 


3983 








{•SIGNED DECIMAL (ASCII) NUMBER 


AND TYPE IT. DEPENDING ON WHETHER THE 


3984 








(•NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN MILL BE TYPED 


3985 








(•BEFORE THE FIRST DIGIT OF THE 


NUMBER. LEADING ZEROS WILL ALWAYS BE 


3986 








(•REPLACED WITH 


SPACES. 




3987 








(•CALL: 








3988 








(• 


HOV 


NUN,-(SP) 


{(PUT THE BINARY NUMBER ON THE STACK 


3989 








(• 


TYPDS 




({GO TO THE ROUTINE 


3990 
















3991 


017750 






ITYPOS: 








3992 


017750 


010046 






MOV 


R0,-(SP] 


((PUSH R0 ON STACK 


3993 


017752 


010146 






HOV 


R1»-{SP) 


((PUSH Rl ON STACK 


3994 


017754 


010246 






HOV 


R2f-(SP) 


((PUSH R2 ON STACK 


3995 


017756 


010346 






MOV 


R3,-(SP) 


{(PUSH R3 ON STACK 


3996 


017760 


010546 






MOV 


R5.-(8P) 


({PUSH R5 ON STACK 


3997 


017762 


012746 


020300 




MOV 


I20200f -(SP) 


((SET BLANK SWITCH AND SIGN 


3998 


017766 


016605 


000020 




MOV 


30CSP}>RS 


((GET THE INPUT NUMBER 


3999 


017772 


100004 






BPL 


It 


((BR IF INPUT IS POS. 


4000 


017774 


005405 






NEC 


R5 


((MAKE THE BINARY NUMBER POS. 


4001 


017776 


112766 


000055 000001 




HOVB 


»'-,l(«P) 


((MAKE THE ASCII NUMBER NEC. 


4002 


020004 


005000 




It: 


CLR 


R0 


((ZERO THE CONSTANTS INDEX 


4003 


020006 


013703 


020164 




HOV 


ttDBLK,R3 


((SETUP THE OUTPUT POINTER 


4004 


020012 


113733 


000040 




MOVB 


»• .(R3)* 


((SET THE FIRST CHARACTER TO A BLANK 


4005 


020016 


005003 




21: 


CLR 


R3 


((CLEAR THE BCD NUMBER 


4006 


020020 


016001 


020154 




MOV 


tDTBL(R0}«Rl 


((GET THE CONSTANT 


4007 


020024 


160105 




3t: 


SUB 


RlfRS 


((FORM THIS BCD DIGIT 


4008 


020026 


003402 






BLT 


4t 


((BR IF DONE 


4009 


020030 


005303 






INC 


R3 


((INCREASE THE BCD DIGIT BY 1 


4010 


020032 


000774 






BR 


3t 




4011 


020034 


060105 




4ti 


ADD 


R1#R5 


((ADO BACK THE CONSTANT 


4012 


020036 


005703 






TST 


R2 


((CHECK ir BCD OI6IT>0 


4013 


020040 


001003 






BNE 


5t 


((FALL THROUGH IF 


4014 


030042 


105716 






TSTB 


(5P) 


((STILL DOING LEADING 0*8T 


4015 


020044 


100407 






BHI 


71 


((Bit IF YES 


4016 


030046 


106316 




5t: 


ASLB 


(SP) 


((MSDT 


4017 


030050 


103003 






BCC 


6t 


((BR IF NO 
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SEQ 0091 



4018 
4019 
4020 
4021 
4022 
4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
4031 
4033 
4033 
4034 
4035 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 



020052 
020060 
020064 
020070 
020072 
020074 
020100 
020103 
030104 
020106 
030110 
030112 
020114 
020123 
030124 
030126 
030130 
030133 
030134 
030136 
030143 
030150 
030153 
030154 
020156 
030160 
030163 
030164 



116663 000001 
052703 



177777 



052702 000040 

110223 

005730 

030037 000010 

003746 

003002 

010502 

000764 

105726 

100003 

116663 177777 

105013 

012605 

012603 

012602 

012601 

012600 

104401 020164 

016666 000002 

012616 

000002 

023420 

001750 

000144 

000012 



177776 



611 
711 



eit 



MOVB 


1C8P),-1CB3) 


MYE8— SET THE SIGN 




BIS 


»'Z,M 


MHAKE THE BCD DIGIT ASCII 


BIS 


»' »R2 


nMAKE IT A SPACE IF NOT 


ALREADY A 


MOVB 


R2f (R3}4' 


nPUT THIS CHARACTER IN 


THE OUTPUT 


I8T 


(R0)t 


nJUST INCREMENTING 




CMP 


R0f #10 


M CHECK THE TABLE INDEX 




BLT 


31 


nSO DO THE NEXT DIGIT 




BQT 


8t 


nGO TO EXIT 




MOV 


RS>R3 


MGET the LSD 




BR 


6( 


It GO CHANGE TO ASCII 




TSTB 


(SP) + 


nHAS THE LSD THE FIRST 


N0N>EER07 


BPL 


91 


MBR ir NO 




MOVB 


•1(8P),-3(R33 


nYES»SET THE SIGN TOR 


TYPING 


CLRB 


(R3) 


11 SET THE TERMINATOR 




MOV 


(SPHfRS 






MOV 


C8P}<f>R3 


tlPOP STACK INTO R3 




MOV 


(8P)trR2 






MOV 


CSP)f«Rl 


MROP stack INTO Rl 




MOV 


(SP}+«R0 


nPOP STACK INTO R0 




TYPE 


tIDBtiK 


ilNOH TYPE THE NUMBER 




MOV 


3(8P).4(6P) 


n ADJUST THE STACK 




MOV 


(SP}tr CSP) 






PTI 




n RETURN TO USER 




10000 
1000. 








100. 
10. 








.BLKN 


4 






TYPE 


ROUTINE 







DIGIT 



} I *••*•••««*•••*•••«**•«»«••••*«•**•«***•••*«»«•*«•«•••*••••*•«•• 

|»R0UTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE NITH A BYTE. 
t*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 



>*HOTElt 
|*N0TE3l 
>*H0TE3l 
I* 

I 'CALL I 

;•!} USING A 



(NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
•FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED, 
IFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



I •OB 
>• 



TYPE 



TRAP INSTRUCTION 
f NESADR 



MMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



TYPE 
HCSADR 



4064 


020174 


105737 


001157 


ITYPEI 


TSTB 


ITPFLG 


MIS THERE A TERMINAL? 


4065 


020300 


100002 






BPL 


11 


t>BR IF YES 


4066 


030202 


000000 






HALT 




MHALT HERE IF NO TERMINAL 


4067 


030304 


000407 






BR 


31 


1 (LEAVE 


4068 


030206 


010046 




111 


MOV 


R0,'(SP} 


msave Re 


4069 


030310 


017600 


000002 




MOV 


•2(SP)«R0 


MGET ADDRESS OF ASCIZ STRING 


4070 


030314 


112046 




2*1 


MOVB 


(R0)+,-(8P3 


UPUSH CHARACTER TO BE TYPED ONTO STACK 


4071 


030316 


001005 






BNE 


41 


MBR IF IT ISN'T THE TERMINATOR 


4073 


030320 


005736 






TST 


CSP) + 


HlF TERMINATOR POP IT OFF THE STACK 


4073 


020222 


013600 




6011 


MOV 


(SP)'t'»R0 


n RESTORE R0 
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SE8 0892 



4074 


030224 


062716 


000002 


3(1 


ADD 


*3«(SP) 


M ADJUST RETURN PC 


4075 


020230 


000002 






RTI 




M RETURN 


4076 


020232 


122716 


000011 


411 


CMPB 


*HT,(SP} 


JIBRAHCH IF <HT> 


4077 


020236 


001430 






BEQ 


et 




4078 


020240 


122716 


000200 




CMPB 


»CRLF.(SP) 


JJBBANCH IF NOT <CRLF> 


4079 


020244 


001006 






BNE 


St 




4080 


030246 


005726 






TST 


(SP3 + 


JlPOP <CR><LF> EOUIV 


4081 


020350 


104401 






TYPE 




mtype a cr and LF 


4083 


030253 


001213 






tCRLF 






4083 


030354 


105037 


030410 




CLRB 


ICHARCNT 


M CLEAR CHARACTER COUNT 


4084 


020260 


000755 






BR 


31 


tiGET NEXT CHARACTER 


4085 


020263 


004737 


030344 


511 


JSR 


PC»»TYPEC 


;>G0 TYPE THIS CHARACTER 


4086 


020366 


123726 


001156 


6«t 


CMPB 


•FILLC>(SP)+ 


nIS IT TIME FOR FILLER CHARS,? 


4087 


030372 


001350 






BNE 


38 


MIF NO GO GET NEXT CHAR. 


4088 


020274 


013746 


001154 




MOV 


INULLf-(SP} 


nSET * OF FILLER CHARS. NEEDED 


4089 














MAND THE NULL CHAR. 


4090 


030300 


105366 


000001 


711 


DECB 


KSP] 


IIDOES A NULL NEED TO BE TYPED? 


4091 


020304 


002770 






BLT 


61 


HBR IF NO--GO POP THE NULL OFF OF STACK 


4092 


030306 


004737 


030344 




JSR 


PC » tTYPEC 


MGO TYPE A NULL 


4093 


020312 


105337 


030410 




DECB 


(CHARCNT 


tiDO NOT COUNT AS A COUNT 


4094 


020316 


000770 






BR 


71 


11 LOOP 



4095 
4096 
4097 
4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 
4108 
4109 
♦ 110 
4111 
4112 
4113 
4114 
4115 
4116 
4117 
4118 
4119 
4120 
4121 
4122 
4133 
4124 
4125 
4126 
4127 
4128 
4129 



020330 
030334 
030330 
030336 
020340 
020342 
020344 
020350 
020352 
020360 
020366 
030370 
030374 
030S76 
030404 
020406 
020410 
030413 



113716 
004737 
133737 
001373 
005736 
000734 
105777 
100375 
116677 
133766 
001003 
105037 
000406 
133766 
001403 
105237 



000040 
030344 
000007 



000002 
000015 



020410 
000012 



160572 
000002 



000207 



1 HORIZONTAL TAB 


PROCESSOR 




881 


MOVB 


f(8P) 


M REPLACE TAB WITH SPACE 


9(1 


JSR 


PCflTYPEC 


MTYPE a SPACE 




BITS 


17, (CHARCNT 


n BRANCH IF HOT AT 




BNE 


9( 


MTAB STOP 




TST 


(8P3 + 


nPOP SPACE OFF STACK 




BR 


2( 


MSET NEXT CHARACTER 


ITYPECt 


TSTB 


•(TPS 


nWAIT UNTIL PRINTER IS READY 




BPL 


ITYPEC 






MOVB 


2(8P)*8(TPB 


MLOAD char TO BE TYPED INTO DATA REG. 




CMPB 


ICR>3(SP) 


Mis character a CARRIAGE RETURN? 




BNE 


1( 


MBRANCH if NO 




CLRB 


(CHARCNT 


MYES'-CLEAR CHARACTER COUNT 




BR 


ITYPEX 


mexit 


111 


CMPB 


tLF,3(8P} 


Mis CHARACTER A LINE FEED? 




BEQ 


(TYPEX 


MBRANCH IF YES 




INCB 


(PC)* 


M COUNT THE CHARACTER 


(CHARCNT i.VORD 





M CHARACTER COUNT STORAGE 


ITYPEXI 


RT8 


PC 




.8BTTL 


INTEGER 


MULTIPLY ROUTINE 




1 1 •••••#•«•*••*••••*«•«••*»•••»*•••••«•••«»»•«••«*••««•'»•*•*••••• 


l»CALL 








»• 


MOV 


MULTIPLERr-(SP) 




t* 


MOV 


MULTIPLICAND, -(SP) 


»• 


JSR 


PCfdlMULT 




»• 


RETURN 


tiPRODUCT IS ON 


THE STACK 



STACK PRODUCT 
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SEQ 3093 



4130 










TOP 


LSB'S 




4131 








;* 


*2 


MSB'S 




4132 
















4133 


020414 






SMULTt 








4134 


020414 


010046 






HOV 


R0,-(SP) 


nPUSH R0 ON STACK 


4135 


020416 


010146 






HOV 


Rl.-(SP) 


; IPUSH Rl ON STACK 


4136 


020420 


010246 






MOV 


R2,-(SPJ 


nPUSH R2 ON STACK 


4137 


020422 


005046 






CLR 


"(SP) 


nCLEAR THE SIGN KE< 


4138 


020424 


016601 


000012 




HOV 


12(SP),Ri 


nGET THE MULTIPLICAND 


4139 


020430 


100002 






BPL 


1$ 


IIBR IF PLUS 


4140 


020432 


005216 






INC 


(SP) 


>;SET THE SIGN KEY 


4141 


020434 


005401 






NEC 


Rl 


nMAKE THE HULTIPLICAND POSTIVE 


4142 


020436 


016602 


000014 


l$l 


MOV 


14{SP],R2 


MGET THE MULTIPLIER 


4143 


020442 


100002 






BPIi 


2t 


nBR IF PLUS 


4144 


020444 


005316 






DEC 


CSP] 


M UPDATE THE SIGN KEY 


4145 


020446 


005402 






NEG 


R2 


nMAKE THE HULTIPLIER POSTIVE 


4146 


020450 


012746 


000021 


2tl 


HOV 


#17,i-CSP3 


II SET THE LOOP COUNT 


4147 


020454 


005000 






CLR 


R0 


II SETUP FOR THE HULTIPLY LOOP 


4148 


020456 


103001 




311 


BCC 


4$ 


IlDON'T ADD IF HULTIPLICAND • 


4149 


020460 


060200 






ADD 


R2rR0 




4150 


020462 


006000 




4t: 


POR 


R0 


IIPOSITION THE PARITIAL PRODUCT AND 


4151 


020464 


006001 






ROR 


Rl 


IITHE HULTIPLICAND 


4152 


020466 


005316 






DEC 


(SP) 


IIHAS ALL BITS OF THE MULTIPLICAND BEEN 


4153 


020470 


001 372 






SNE 


2* 


|!BB IF NO 


4154 


020472 


022616 






CMP 


tSP)*, CSP) 


II SHOULD PRODUCT BE NEGATIVET 


4155 


020474 


001403 






BEQ 


5$ 


II GO TO EXIT IF NO 


4156 


020476 


005400 






NEG 


R0 


IIYES--SO MAKE IT SO 


4157 


020500 


005401 






NEG 


Rl 




4158 


020502 


005600 






SBC 


R0 




4159 


020504 


005726 




5$: 


TST 


(SP) + 


llCLEAR SIGN INFO. OFF OF STACK 


4160 


020S06 


010066 


000012 




HOV 


R0,12(SP) 


llPUT THE PRODUCT ON THE STACK (MSB'S) 


4161 


020512 


010166 


000010 




HOV 


R1,10(SP) 


1 ILSB'S 


4162 


020516 


012602 






MOV 


CSP)+,R2 


If POP STACK INTO R2 


4163 


020520 


012601 






HOV 


CSP)+»R1 


flPOP STACK INTO Rl 


4164 


020522 


012600 






HOV 


CSP)+»R0 


II POP STACK INTO R0 


4165 


020524 


000207 






RT5 


PC 




4166 
















4167 








.SBTTL 


TIT INPUT ROUTINE 




4168 
41 69 








f 1 «•»••**«•«•«•»»*»»«*••••*«••**»*•»»•«»•••«««••»«•*•«•*••«•«••*• 


4170 








.ENABL 


LS6 






4171 


020526 


000000 




STKCNTI 


.WORD 





IINUMBER OF ITEMS IN QUEUE 


4172 


020530 


000000 




STKQINI 


.WORD 





1 1 INPUT POINTER 


4173 


020532 


000000 




»TKQOUT! 


.WORD 





I lOUTPUT POINTER 


4174 


020534 


000001 




STKQSRTl 


.BLKB 


1 


llTTY KEYBOARD QUEUE 


4175 




020535 




STKQGND". 






4176 




020536 




.EVEN 








4177 
















4178 








;«TK INITIALIZE 


ROUTINE 




4179 








!»THIS ROUTINE 


WILL INITIALIZE 


THE TTY KEYBOARD INPUT QUEUE 


4180 








; ♦SETUP 


THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


41S1 
4182 








! 

;»CALLI 








41B3 








J» 


J5R 


PCrSTKINT 




41 A4 
4185 








t* 


RETURN 
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41S6 


020536 


005037 


020526 




tTKINT: 


CLR 


STKCNT 


IICLEAR COUNT OF ITEMS IN QUEUE 


4187 


020542 


012737 


020534 


020530 




MOV 


ISTKQSRT.STKOIN 


II MOVE THE STARTING ADDRESS OF THE 


4188 


020550 


013737 


020530 


020532 




MOV 


STKQINfSTKQOUT 


;i QUEUE INTO THE INPUT & OUTPUT POINTERS. 


4189 


020556 


012737 


020606 


000060 




MOV 


tSTKSRV»9»TKVEC 


J J INITIALIZE THE KEYBOARD VECTOR 


4190 


020564 


012737 


000200 


000062 




MOV 


*200>tl*TKVECt2 


II "BR" LEVEL 4 


4191 


020572 


005777 


160350 






TST 


»»TKB 


II CLEAR DONE FLAG 


4192 


020576 


012777 


000100 


160340 




HOV 


»100,»$TKS 


II ENABLE TTY KEYBOARD INTERRUPT 


4193 


020604 


000207 








RTS 


PC 


II RETURN TO CALLER 


4194 
4195 










}»TK SERVICE 


ROUTINE 




4196 










;»THIS 


ROUTINE WILL SERVICE THE 


TTY KEYBOARD INTERRUPT 


4197 










;»BY READING 


THE CHARACTER FROM 


THE INPUT BUFFER AND PUTTING 


4198 










I»IT IN 


THE QUEUE. 




4199 


















4200 


020606 


117746 


160334 




STKSRVI 


MOVB 


9$TKB,-(SP) 


IIPICKUP THE CHARACTER 


4201 


020612 


042716 


177600 






BIC 


|-C177,(SP) 


IISTRIP THE JUNK 


4202 


020616 


021627 


000007 




l»l 


CMP 


(SP).#7 


Ills IT A CONTROL G? 


4203 


020622 


001004 








BNE 


2$ 


II BRANCH IF NO 


4204 


020624 


022737 


000176 


001140 




CMP 


*SWRE6rSWR 


Ills SOFT>SWR SELECTED? 


4205 


020632 


001500 








BEQ 


6$ 


1 IGO TO SWR CHANGE 


4206 


















4207 


020634 








2$i 








4208 


020634 


022737 


000001 


020526 




CMP 


»lf $TKCNT 


1 IIS THE QUEUE FULL? 


4209 


020642 


001004 








BNE 


3$ 


1 1 BRANCH IF NO 


4210 


020644 


104401 


001206 






TYPE 


>$BELL 


II RING THE TTY BELL 


4211 


020650 


005726 








TST 


(SP) + 


IICLEAN CHARACTER OFF OF STACK 


4212 


020652 


000451 








BR 


5« 


IIEXIT 


4213 


020654 


021627 


000023 




3S! 


CMP 


(SP)»»23 


Ills IT A CONTROL'S? 


4214 


020660 


001021 








BNE 


32t 


1 {BRANCH IF NO 


4215 


020662 


005077 


160256 






CLP 


9«TKS 


1 {DISABLE TTY KEYBOARD INTERRUPTS 


4216 


020666 


005726 








TST 


(SP) + 


IICLEAN CHAR OFF STACK 


4217 


020670 


105777 


160250 




31SI 


TSTB 


9$TKS 


{{WAIT FOR A CHAR 


4218 


020674 


100375 








BPL 


31* 


{(LOOP UNTIL ITS THERE 


4219 


020676 


117746 


160244 






HOVB 


e$TKBr-CSP) 


{{GET THE CHARACTER 


4220 


020702 


042716 


177600 






BIC 


fCl77, (SP) 


{{MAKE IT 7-BIT ASCII 


4221 


020706 


022627 


000021 






CMP 


(SP}+f #21 


{{IS IT A CONTROL-0? 


4222 


020712 


001366 








BNE 


31* 


1 {BRANCH IF NO 


4223 


020714 


012777 


000100 


160222 




HOV 


«100>»ITKS 


IIREENABLE TTY KEYBOARD INTERRUPTS 


4224 


020722 


000002 








RTl 




1 {RETURN 


4225 


020724 


005237 


020526 




32«t 


INC 


iTKCNT 


1 {COUNT THlS CHARACTER 


4226 


020730 


021627 


000140 






CMP 


(SP)>*140 


Ills IT UPPER CASE? 


4227 


020734 


002405 








BLT 


4t 


II BRANCH IF YES 


4228 


020736 


021627 


000175 






CMP 


(SP),*175 


Ills IT A SPECIAL CHAR? 


4229 


020742 


003002 








BGT 


41 


1 {BRANCH IF YES 


4230 


020744 


042716 


000040 






BIC 


(40, (SP) 


{{MAKE IT UPPER CASE 


4231 


020750 


112677 


177554 




4$l 


MOVB 


(SP)+,»fTKQIN 


HAND PUT IT IN QUEUE 


4232 


020754 


005237 


020530 






INC 


IIKQIN 


II UPDATE THE POINTER 


4233 


020760 


023727 


020530 


020535 




CMP 


$TKQIN,*STKQEND 


{{GO OFF THE END? 


4234 


020766 


001003 








BNE 


ss 


{{BRANCH IF NO 


4235 


020770 


012737 


020534 


020530 




MOV 


ttTKQSRTftTKQIN 


{{RESET THE POINTER 


4236 


020776 


000002 






5(1 


RTI 




{{RETURN 


4237 


















4238 










1 1 •«•*•«««'»••»»••«»•••«•••••«•«•••«*»««•••*•»•*••#••«•••••**••••« 


4239 










{•SOFTWARE SNITCH REGISTER CHANGE ROUTINE. 


4240 










{•ROUTINE IS 


ENTERED FROM THE 


TRAP HANDLER* AND WILL 


4241 










{•SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
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4343 










»»CALL 


WHEN OPERATING IN TTY 


INTERRUPT MODE. 


4343 


021000 


032737 


000176 


001 140 


ICKSWRt 


CMP 


I3HREG>3WR 


Ills THE SOFT'SWR SELECTED 


4344 


021006 


001 104 








BNE 


15( 


> JEXIT ir NOT 


434S 


021010 


105777 


160130 






TSTB 


8(TK6 


nia A CHAR WAITING? 


4346 


021014 


100101 








BPL 


15t 


MIF NOTf EXIT 


4347 


021016 


1 17746 


160124 






M0V8 


»»IKB,-CSP) 


nYES 


4348 


031033 


0427 16 


1 77600 






BIC 


l"C177,tSP) 


MMAKE IT 7-BIT ASCII 


4349 


031036 


021627 


000007 






CMP 


(SP),I7 


MIS IT A CONTROL-CI 


42S0 


021032 


001 300 








BNE 


28 


IlIF NOT, PUT IT IN THE TTY QUEUE 


43S1 
















HAND EXIT 




















4353 










1 1 •••»•»••*•«•*••••«•«••••••»•»•••••••*»«•••••*«*••*««*•«••**•»•• 


4354 










J •CONTROL IS 


PASSED TO THIS 


POINT FROM EITHER THE TTY INTERRUPT SERVICE 


4355 










r*ROUTiNe OR 


rROM THE SOFTWARE SWITCH REGISTER TRAP CALL* AS A RESULT OF A 


4356 










{•CONTROfC BEING TYPEDi AND 


THE SOFTWARE SWITCH REGISTER BEING SELECTED. 


4357 


021034 


123727 


001134 


000001 


6t 1 


CMPB 


*AUT0B/«1 


nARE WE RUNNING IN AUTO-HODE? 


4356 


021042 


001674 








BEQ 


21 


;tBRANCH IF YES 


4259 


021044 


005726 








TST 


CSP)-^ 


) (CLEAR CONTROL-G OFF STACK 


4360 


021046 


004737 


020536 






JSR 


PC.8TKINT 


tl FLUSH THE TTY INPUT QUEUE 


4361 


021052 


005077 


160066 






CLR 


fITKS 


IIDISABLS TTY KEYBOARD INTERRUPTS 


4363 


021056 


112737 


000001 


001135 




HOVB 


*1,SINTAG 


llSET INTERRUPT MODE INDICATOR 


4363 


















4264 


021064 


104401 


021643 






TYPE 


,$CNTL6 


nECHO THE CONTROL-G t*G) 


4365 


031070 


104401 


021650 




IGTSHRl 


TYPE 


rIMSNR 


nTYPE CURRENT CONTENTS 


4266 


021074 


01 3746 


000176 






MOV 


SWREGfCSP) 


msavg snreg for TYPEOUT 


4267 


031 100 


104402 








TYPOC 


>>G0 TYPE— OCTAL ASCIKALL DIGITS) 


4268 


021 102 


104401 


021661 






TYPE 


rIMNEH 


M PROMPT FOR NEW SWR 


4269 


021 106 


005046 






198 1 


CtR 


-(8P3 


CLEAR COUNTER 


4270 


0211 10 


005046 








CliR 


"(SP) 


I (THE NEW SWR 


4271 


021112 


105777 


160026 




7tl 


TSTB 


8ITK8 


nCHAR THERE? 


4273 


021116 


100375 








BPL 


71 


( 1 IF NOT TRY AGAIN 


4273 


















4374 


021 120 


1 17746 


160022 






MOVB 


»»TKB,-(SP) 


mpick up char 


4275 


021 124 


042716 


177600 






BIC 


»-Cl77,t8P) 


;>MAKE IT 7-BlT ASCII 


4276 


















4277 


















4278 


















4279 


021130 


021627 


000025 




911 


CMP 


CSP}<t25 


nIS II A C0NTR0L-U7 


4380 


021 1 34 


001005 








BNE 


13» 


;i BRANCH IF NOT 


4381 


021 136 


104401 


021636 






TYPE 


>ICNTLU 


J>YES» ECHO CONTROL-U C*U) 


4383 


021142 


062706 


000006 




2081 


ADD 


«6,SP 


>| IGNORE PREVIOUS INPUT 


4383 


021146 


000757 








BR 


198 


nLET'S TRY IT AGAIN 


4384 


















4385 


















4386 


031 150 


031637 


000015 




10$l 


CMP 


(SP}>*1S 


nl5 IT A <CR>7 


4387 


031 154 


001022 








BNE 


168 


} (BRANCH IF NO 


4386 


031156 


005766 


000004 






TST 


4(SP) 


nYES# IS IT THE FIRST CHART 


4389 


031163 


001 403 








BEQ 


HI 


1 (BRANCH IF YES 


4290 


021164 


016677 


000002 


157746 




HOV 


2(SP},ISHR 


nSAVE NEW SWR 


4391 


031173 


062706 


000006 




11*1 


ADD 


• 6rSP 


nCLEAR UP STACK 


4393 


031176 


104401 


001213 




1411 


TYPE 


rICRLF 


SlECHO <CR> AND <LF> 


4293 


031203 


123727 


001135 


000001 




CMPB 


SINTAG.Il 


M RE-ENABLE TTY KBO INTERRUPTS? 


4294 


021310 


001003 








BNE 


158 


((BRANCH IF NOT 


4395 


031313 


012777 


000100 


157724 




HOV 


I100>8ITK8 


((RE-ENABLE TTY KBD INTERRUPTS 


4396 


031330 


000002 






IStl 


RTI 




( (RETURN 


4297 


021233 


004737 


020344 




1611 


JSR 


PC»»TYPEC 


((ECHO CHAR 



HAINDEC-U-OZRKL-D MACYll 27(1006) 04-OCT-76 14(26 PAGE B0 

D7.BKLD,Pn 3S-AUG-76 15(35 TTY INPUT ROUTINE 



4298 


021226 


021627 


000060 






CMP 


(SP)rl60 


((CHAR < 0? 


4299 


021233 


002420 








BLT 


188 


((BRANCH IF YES 


4300 


031334 


031627 


000067 






CMP 


(SP}.f67 


((CHAR > 7? 


4301 


021240 


003015 








BGT 


188 


((BRANCH IF YES 


4302 


021242 


042726 


000060 






BIC 


f60>(SP)'f 


((STRIP-OFF ASCII 


4303 


021246 


005766 


000002 






TST 


3(SP) 


((IS THIS THE FIRST CHAR 


4304 


021252 


001403 








BEQ 


171 


((BRANCH IF YES 


4305 


021254 


006316 








ASL 


(SP) 


((NO, SHIFT PRESENT 


4306 


021256 


006316 








ASL 


(SP) 


(( CHAR OVER TO MAKE 


4307 


021260 


006316 








ASL 


(SP) 


(( ROOM FOR NEW ONE. 


4306 


021262 


005266 


000002 




17l( 


IMC 


3(SP) 


((KEEP COUNT OF CHAR 


4309 


021266 


056616 


177776 






BIS 


-3(SP), (SP) 


((SET IN NEW CHAR 


4310 


021272 


000707 








BR 


78 


((GET THE NEXT ONE 


4311 


021274 


104401 


001212 




18l( 


TYPE 


,8QUES 


((TYPE ?<CR><Lr> 


4312 


021300 


000720 








BR 


308 


((SIMULATE CONTROL-U 


4313 










.DSABL 


LSB 






4314 


















4315 


















4316 










1 1 ««•*»••••••••»••••«*•••••'••••••••••••«•••*•••••••*•••••••»••*«• 


4317 










(•THIS 


ROUTINE 


WILL INPUT A 


SINGLE CHARACTER FROM THE TTY 


4318 










(•CALL! 








4319 










(• 


RDCHR 




((GET A CHARACTER FROM THE QUEUE 


4330 










(• 


RETURN 


HERE 


((CHARACTER IS ON THE STACK 


4321 










(• 






((WITH PARITY BIT STRIPPED OFF 


4322 










( 








4323 


















4324 


021302 


011646 






8RDCHRI 


MOV 


(SP),-(SP) 


((PUSH DOWN THE PC AND 


4325 


021304 


016666 


000004 


000002 




MOV 


4(SP),3(SP) 


((THE PS 


4336 


021312 


005066 


000004 






CLR 


4(SP) 


((GET READY FOR A CHARACTER 


4327 


021316 


005046 








CLR 


-{SP) 


((PUT NEW PS ON STACK 


4328 


021320 


012746 


021336 






MOV 


I648f-(8P} 


((PUT NGN PC ON STACK 


4329 


031334 


000002 








RTI 




((POP NEW PC AND PS 


4330 


031326 








64t> 








4331 


021336 


005737 


020526 




lit 


TST 


8TKCNT 


((WAIT ON A CHARACTER 


4332 


021332 


001775 








BEQ 


18 




4333 


031334 


005337 


030526 






DEC 


8TKCNT 


((DECREMENT THE COUNTER 


4334 


031340 


117766 


177166 


000004 




MOVB 


88TKQ0UTr4(SP) ((GET ONE CHARACTER 


4335 


021346 


005337 


020532 






INC 


8TKaOUI 


((UPDATE THE POINTER 


4336 


021353 


023737 


020532 


030535 




CMP 


(TKaOUT,l8TKOEND ((DID IT GO OFF OP THE END? 


4337 


031360 


001003 








BNE 


31 


{(BRANCH IF NO 


4338 


131363 


012737 


020534 


020533 




HOV 


IIIKQSRTrlTKOOUT ((RESET THE POINTER 


4339 


031370 


000003 






381 


RIl 




((RETURN 


4340 










1 (•••••••••i»»«**»»*«***««tt»««»«»»»««««««««*»«»*»««*»^«»*^««««^««* 


4341 










(•THIS 


ROUTINE 


WILL INPUT R 


STRING FROM THE TTY 


4342 










(•CALLI 








4343 










!• 


RDLIN 




((INPUT A STRING FROM THE TTY 


4344 










(• 


RETURN 


HERE 


((ADDRESS OF FIRST CHARACTER WILL 


4345 










(• 






((TERMINATOR WILL BE A BYTE OF AL 


4346 
4347 


031373 


010346 






IRDLINI 


MOV 


R3,-(SP) 


((SAVE R3 


4348 


031374 


00S046 








CLR 


•(SP) 


((CLEAR THE RUB0U7 KEY 


4349 


031376 


01370J 


021636 




1«( 


MOV 


»ITTYIN,P3 


((GET ADDRESS 


4350 


031403 


022703 


031636 




311 


CMP 


«ITTYIN+8,, 


R3 ((BUFFER FULL? 


4351 


031406 


101456 








BLOS 


41 


((BR IF YES 


43S2 


031410 


104410 








RDCHP 




)(G0 READ ONE CHARACTER FROM THE 


4351 


03141' 


112613 








MOVB 




MCET chabactcs 
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4354 


021414 


122713 


000177 




10ti 


CMPB 


I177>CR3) 


) y IS IT A RU60UT 


4355 


021420 


001022 








BNE 


St 


MBR IF NO 


4356 


021422 


005716 








TST 


tSP) 


Ills THIS THE FIRST RUBOUT? 


4357 


021424 


001007 








BNE 


6s 


; ; 3R IF NO 


4359 


021426 


112737 


000134 


021624 




MOVB 


*'\»9I 


MTYPE a BACK SLASH 


4359 


021434 


104401 


021624 






TYPE 


»9I 




4360 


021440 


012716 


177777 






MOV 


*"1 » (SP) 


IISET THE RUBOUT KEY 


4361 


021444 


005303 






611 


DEC 


R3 


n BACKUP BY ONE 


4)62 


021446 


020327 


021626 






CMP 


R3, IITTYIN 


JlSTACK EMPTY? 


4363 


021452 


103434 








BLO 


4| 


nBR IF YES 


4364 


021454 


111337 


021624 






MOVB 


CR3)f 9t 


nSETUP TO TYPEOUT THE DELETED CHAR, 


436S 


021460 


104401 


021624 






TYPE 


>9t 


}|G0 TYPE 


4366 


021464 


000746 








BR 


21 


mgo read another char. 


4367 


021466 


005716 






5tl 


TST 


tSP) 


M RUBOUT KEY SETT 


4369 


021470 


001406 








BEQ 


7t 


IIBR IF NO 


4369 


021472 


112737 


000134 


021624 




MOVB 


♦'\»9I 


llTYPE A BACK SLASH 


4370 


021500 


104401 


021624 






TYPE 


> 91 




4371 


021504 


005016 








CLR 


CSP) 


M CLEAR THE RUBOUT KEY 


4372 


021506 


122713 


000025 




7$; 


CMPB 


f 25> CR3] 


;|IS CHARACTER A CTRL UT 


4373 


021512 


001003 








BNE 


8( 


JlBR IF NO 


4374 


021514 


104401 


021636 






TYPE 


t ICNTIiU 


IITYPE A CONTROL "U" 


4375 


021520 


000726 








BR 


1( 


mgo start over 


4376 


021522 


122713 


000022 




8$l 


CMPB 


I22> (R3} 


MIS CHARACTER A "^R"? 


4377 


021526 


001011 








BNE 


3t 


J \ BRANCH IF HO 


4378 


021530 


105013 








CLRB 


CR3) 


MCLEAR the CHARACTER 


4379 


021532 


104401 


001213 






TYPE 


f JCRLF 


MTYPE A "CR" & "LF" 


4390 


021536 


104401 


021626 






TYPE 


» STTYIN 


MTYPE the INPUT STRING 


4391 


021S42 


000717 








BP 


2$ 


mgo pickup another chacter 


4382 


021544 


104401 


001212 




4$t 


TYPE 


ftOUES 


MTYPE A '7* 


4393 


021550 


000712 








BR 


1* 


MCLEAR the BUFFER AND LOOP 


4384 


021552 


111337 


021624 




3(t 


MOVB 


CR3),9$ 


mecho the character 


43SS 


021556 


104401 


021624 






TYPE 


>9t 




4396 


021562 


122723 


000015 






CMPB 


tl5f CR3) + 


i; check FOR RETURN 


4387 


021566 


001 305 








BNE 


2S 


Ml<O0P IF NOT RETURN 


4383 


021570 


105063 


177777 






CLRB 


•1(R3) 


MCLEAR RETURN (THE 15} 


4389 


021574 


104401 


001214 






TYPE 


f (LF 


MTYPE a LINE FEED 


4390 


021600 


005726 








TST 


(SP) + 


MCLEAN RUBOUT KEY FROM THE STACK 


4391 


021602 


012603 








MOV 


CSP)+»R3 


\ \ RESTORE R3 


4 392 


021604 


01 1 646 








MOV 


(SP) » "(SP) 


M ADJUST THE STACK AND PUT ADDRESS OF THE 


4 393 


021606 


016666 


000004 


000002 




MOV 


4 VoP J t Z (SP] 


• • PTDCT A T T ^UADHOTPD nil TT 

M FlXoT AdCXl CHAKACTbK UN ii 


4394 


02161 4 


012766 


021 626 


000004 




MOV 


*STTYIN#4(SPi 




4395 


021622 


000002 








RTI 




; JRETURN 


4396 


021624 


000 






91 1 


.BYTE 





jySTORAGE FOR ASCII CHAR. TO TYPE 


4397 


021625 


000 








.BYTE 





\ ! TERMINATOR 


4398 


021626 


000010 






STTYXN 1 








4399 


021636 


052536 


005015 


000 


tCNTLU: 


Iasciz 


/*0/<15><12> 


MCONTBOL "U« 


4400 


021643 


136 


006507 


000012 


SCNTLGl 


.ASCIZ 


/*G/<15><12> 


MCONTROL "G" 


4401 


021650 


005015 


053523 


020122 


SMSWRt 


.ASCIE 


<t 5><12>/SNR 


s / 


4402 


021656 


020075 


000 












4403 


021661 


040 


047040 


053505 


$MNEWS 


.ASCIZ 


/ NEW « / 




4404 


021666 


036440 


000040 












4405 


















4406 










.SBTTL 


READ AN 


OCTAL NUMBER 


FROM THE TTY 



4407 
4408 
4409 



; ;••«••••»••••••»»«•••••«••*«»«»««*•*»••»«••»•*•««•••«••«*•»••••« 

j*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
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4410 






J«CHANGE IT TO 


BINARY. 




4411 






{•CALLS 








4412 






• • 


ROOCT 




MREAD AN OCTAL NUMBER 


4413 








RETURN 


HERE 


MLOW ORDER BITS ARE ON TOP OF 


4414 












MHIGH ORDER BITS ARE IN tHIOCT 


4415 














4416 


021672 


011646 


srooct: 


HOV 


(SP),-{5P) 


M PROVIDE SPACE FOR THE 


4417 


021674 


016666 


000004 000002 


MOV 


4(SP),2(SP} 


M INPUT NUMBER 


4418 


021702 


010046 




MOV 


R0,-(SP) 


MPUSH R0 ON STACK 


4419 


021704 


010146 




HOV 


Rt»-(SP) 


MPUSH B1 ON STACK 


4420 


021706 


010246 




MOV 


R2,-{SP) 


MPUSH R2 ON STACK 


4421 


021710 


104411 


It: 


RDLIN 




MREAD AN ASCIZ LINE 


4422 


021712 


012600 




MOV 


(SP)4'rR0 


MGET ADDRESS OF 1ST CHARACTER 


4423 


021714 


005001 




CLR 


Rl 


MCLEAR DATA WORD 


4424 


021716 


005002 




CLR 


P2 




4425 


021720 


112046 


2tl 


MOVB 


(R0)+f-(SP) 


MPICKUP THIS CHARACTER 


4426 


021722 


001412 




BEO 


3t 


MIF ZERO GET OUT 


4427 


021724 


006301 




ASL 


Rl 


M»2 


4428 


021726 


006102 




ROL 


R2 




4429 


021730 


006301 




ASL 


Rl 


M»4 


4430 


021732 


006102 




ROL 


R2 




4431 


021734 


006301 




ASL 


Rl 


M»8 


4432 


021736 


006102 




ROL 


R2 




4433 


021740 


042716 


177770 


BIC 


»*C7,(SP) 


MSTRIP the ASCII JUNK 


4434 


021744 


062601 




ADD 


(SP)*,R1 


MADD in this DIGIT 


4435 


021746 


000764 




BR 


2t 


MLOOP 


4436 


021750 


005726 


3t: 


TST 


(SP) + 


MCLEAN TERMINATOR FROM STACK 


4437 


021752 


010166 


000012 


HOV 


Rlf 12(SP) 


MSAVE THE RESULT 


4438 


021756 


010237 


021772 


MOV 


R2>tHI0CT 




4439 


021762 


012602 




HOV 


(SP)'f>R2 


MPOP STACK INTO R2 


4440 


021764 


012601 




MOV 


(SP)+>R1 


MPOP STACK INTO Rl 


4441 


021766 


012600 




MOV 


(SP)'ff R0 


MPOP STACK INTO R0 


4442 


021770 


000002 




RTI 




M RETURN 


4443 


021772 


000000 


tHIOCTi 


.WORD 





MHIGH ORDER BITS GO HERE 


4444 














4445 






.SBTTL 


BINARY 


TO OCTAL (ASCII) 


AND TYPE 



4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 



J I ••••••••«••••••••••••••••••«•••••••••«•••*•••••••*••••«•••••••• 

JVTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
(•OCTAL (ASCII) NUMBER AND TYPE IT. 

>»tTYP08— ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
; •CALL I 

NUMc(SP) M NUMBER TO BE TYPED 

MCALL FOR TYPEOUT 
K mN*1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

N MH«1 OR 

Ml'TYPE LEADING ZEROS 
M0«SUPPRESS LEADING ZEROS 



HOV 
TYPOS 
.BYTE 
.BYTE 



»• 
»• 
»• 
»• 
t» 
»• 
>• 

;*tTYPON"— ENTER HERE TO TYPE OUT HITH THE SAME PARAMETERS AS THE LAST 

)*ITYPOS OR tTYPOC 

^•CALLt 

}• MOV NUM,-(SP) MNUHBER TO BE TYPED 

»• TYPON MCALL FOR TYPEOUT 

»• 

(•tTYPOC— ENTER HERE FOB TYPEOUT OF A 16 BIT NUMBER 
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SEC 0099 



4466 










{•CALL! 




4467 










I* 


KOV 


4468 










>• 


TYPOC 


4469 














4470 


031774 


017646 


000000 




1 TYPOS 1 


HOV 


4471 


023000 


116637 


000001 


023317 




MOVB 


4473 


033006 


113637 


033331 






MOVB 


4473 


033013 


063716 


000003 






ADD 


4474 


033016 


000406 








BR 


4479 


033030 


U3737 


000001 


023317 


•TYPOCI 


MOVB 


4476 


033036 


113737 


000006 


033331 




HOVB 


4477 


032034 


113737 


000005 


033316 


tTYPONi 


MOVB 


4478 


033043 


010346 








MOV 


4479 


033044 


010446 








HOV 


4480 


033046 


010546 








MOV 


4481 


033050 


113704 


033331 






MOVB 


4483 


033054 


009404 








NEG 


4483 


033056 


063704 


000006 






ADD 


4484 


033063 


110437 


033320 






MOVB 


4485 


033066 


113704 


033317 






MOVB 


4486 


033073 


016609 


000013 






HOV 


4487 


033076 


005003 








CLR 


4488 


033100 


006105 






111 


ROL 


4489 


033103 


000404 








BR 


4490 


033104 


006105 






2tl 


ROL 


4491 


033106 


006105 








ROL 


4493 


033110 


006105 








ROL 


4493 


033113 


010503 








MOV 


4494 


033114 


006103 






3(1 


ROL 


4495 


032116 


105337 


033330 






DECB 


4496 


033133 


100016 








BPL 


4497 


032134 


043703 


177770 






BIC 


4498 


032130 


001003 








BNE 


4499 


023133 


005704 








TST 


4500 


033134 


001403 








BEQ 


4501 


022136 


009304 






4(1 


INC 


4503 


022140 


093703 


000060 






BIS 


4503 


023144 


052703 


000040 




9(t 


BIS 


4504 


033150 


110337 


033314 






HOVB 


4505 


033154 


104401 


032314 






TYPE 


4506 


033160 


105337 


033316 




7(: 


DECB 


4507 


033164 


003347 








BGT 


4508 


022166 


003402 








BLT 


4509 


032170 


005304 








INC 


4510 


022172 


000744 








BR 


4511 


02Z174 


012605 






6(1 


HOV 


4513 


033176 


012604 








MOV 


4513 


023300 


013603 








HOV 


4514 


033303 


016666 


000003 


000004 




HOV 


4515 


032310 


012616 








MOV 


4516 


032313 


000003 








RTI 


4517 


032314 


000 






8(1 


.BYTE 


4518 


033315 


000 








.BYTE 


4519 


033316 


000 






(OCNTI 


.BYTE 


4530 


033217 


000 






(0riLLI 


.BYTE 


4521 


033330 


000000 






(OHODEI 


.HORD 



NUM«-(SP) nNUHBER TO BE TYPED 
nCALL rOR lYPEOUT 

• CSP}>-(8P) MPICKUP the MODE 

1(SP>>(0FILL I (LOAD ZERO FILL SWITCH 
(SP) + >(OMODEf 1 MNUMBER OF DIGITS TO TYPE 

*3«(SP) M ADJUST RETURN ADDRESS 
(TYPON 

li>(0FILL nSET THE ZERO FILL SWITCH 

*6r(0H0DE'fl nSET FOR SIX(6) DIGITS 

I5,(0CNT tiSET THE ITERATION COUNT 

R3f(SP) nSAVE R3 

R4,-(SP) nSAVE R4 

R5f(SP] nSAVe R9 

(0H0DE+1(R4 nGET THE NUMBER OP DIGITS TO TYPE 
R4 

t6fR4 MSUBTRACT IT FOR MAX. ALLOWED 

R4,(6mODE oSAVE IT FOR USE 

(0FILLfR4 nGET THE ZERO FILL SWITCH 

13(SP)«RS n PICKUP THE INPUT NUMBER 

R3 n CLEAR THE OUTPUT WORD 

RS nROTATE MSB INTO "C" 

3( nSO DO MSB 

RS I (FORM THIS DIGIT 

RS 

R5 

R5,R3 

R3 nGET LSB OF THIS DIGIT 

(OMODE mTYPE THIS DIGIT? 

7( MBR IF NO 

1177770, R3 m6ET RID OF JUNK 

4( J ; TEST FOR 

R4 n SUPPRESS THIS 0? 

5( nBR IF YES 

R4 >f DON'T SUPPRESS ANYMORE 0'S 

t'0,R3 ;|MAKE THIS DIGIT ASCII 

I' ,R3 mHAKE ASCII IF NOT ALREADY 

R3r8( nSAVE FOR TYPING 

,8( nGO TYPE THIS DIGIT 

(OCNT M COUNT BY 1 

3( WBR IF MORE TO DO 

6( MBR IF DONE 

R4 ;tINSURE LAST DIGIT ISN'T A BLANK 

2( llGO 00 THE LAST DIGIT 

(SP)-t',R5 ^RESTORE RS 

(SP}+iR4 t (RESTORE R4 

(SP)+,R3 JJRESTORE R3 

3(SP),4(SP) ;>SET THE STACK FOR RETURNING 
(SP)+. (SP) 

I (STORAGE FOR ASCII DIGIT 

mTERMIHATOR for type ROUTINE 

n OCTAL DIGIT COUNTER 

nZERO FILL SWITCH 

mNUHBER OF DIGITS TO TYPE 
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4522 
4523 
4534 
4535 
4526 
4527 
4528 
4529 
4530 
4531 
4533 
4533 
4534 
4535 
4536 
4537 
4538 
4539 
4540 
4541 
4543 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
4590 
4551 
4553 
4553 
4594 
4555 
4556 
4557 
4598 
4559 
4560 
4561 
4563 
4963 
4964 
4565 
4566 
4567 
4968 
4969 
4970 
4971 
4973 
4973 
4974 
4979 
4976 
4977 



032366 
033370 
033374 
033376 
033300 
033304 
033306 
033310 
033314 
033316 
033330 
033333 
033334 



.SBTTL TYPDSS - TYPE DECIMAL, LEADING ZEROES SUPPRESSED 

;TYPDSS 

(ROUTINE FOR TYPING OUT DECIMAL NUMBERS, LEADING 0'S ARE SUPPRESSED 
(THE NUMBER IS LEFT JUSTIFIED. NOTE THE 16 BIT BINARY NUMBER SHOULD 
(BE POSITIVE (BIT ISa 0). 

(CALL! MOV NUMBER, -(SP) (PUT BINARY NUMBER ON STACK 

( TYPDSS (GO TYPE DECIMAL 



033333 


016637 


000004 


033263 


TYPDE8I 


MOV 


4(SP),1( 


(GET THE NUMBER 


033230 


013746 


033363 






MOV 


ll(>-(SP) 


(PUT PTR ON THE STACK 


032334 


004737 


033433 






JSR 


PC, •«(DB3D 


(GO CONVERT BINARY NO. TO 
















(ASCII STRING 


033340 


004737 


033366 






JSR 


PC,»«(SUPRS 


(GO TYPE OUT DECIMAL STRING 
















(SUPRESING LEADING 0'S 


033344 


016666 


000003 


000004 




MOV 


3(SP),4(SP) 


(ADJUST RETURN 


032392 


011666 


000003 






HOV 


(SP),3(SP) 


(ADJUST RETURN ADRES 


022396 


005736 








1ST 


(SP) + 


(POP STACK 


032360 


000003 








RTI 




(RETURN 


033363 


000000 


000000 




1(( 


.WORD 


0,0 





.SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 

I (»«•»«•«*••«•*•••*•••»»•*••»••••••••»»••••***••••••»•»•»•*»#•••• 

(•THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 

(•LEADING NUMBERS. 

(•CALL 

>• HOV *HUHADRr-(SP) ((FIRST ADDRESS OF ASCIZ STRING 

PC,8t(SUPRS 



>• 



JSR 



010046 

016600 000004 

105710 

001403 

133730 000060 

001773 

009300 

010037 033316 



013600 
013616 
000307 



(SUPRSI 


HOV 


R0,>(SP} 


((SAVE R0 




MOV 


4(8P),R0 


((PICKUP THE POINTER 


1(1 


TSTB 


(R0) 


((TERHINATEOR? 




BEO 


3( 


((BR IF YES 




CMPB 


i'0,(Re)+ 


((IS THIS AN ASCII "0" 7 




BEO 


i( 


((BR IF YES 


3(1 


DEC 


R0 


((BACKUP BY "1" 




MOV 


R0«3( 


((SAVE FOR TYPING 




TYPE 




((GO TYPE 


3(1 


.WORD 





((ASCIZ POINTER GOES HERE 




MOV 


(SP}+,R0 


((RESTORE R0 




HOV 




((RESTORE THE STACK 




RTS 


PC 


((RETURN 


.SBTTL 


SAVE AND RESTORE R0>R5 


ROUTINES 


( 1 ••••••••••••••••**»»*««*»«^««»*«»*»*^»*^»***«**«**«»*««4 


(•SAVE 


R0-RS 






(•CALK 








t* 


8AVREG 






(•UPON 


RETURN 


FROM (SAVREG THE 


STACK HILL LOOK LIKEI 
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SEQ siei 



4578 
4579 
4580 
4531 
4582 
4583 
4584 
4535 
4586 
4587 
4588 
4589 
4590 
4591 
4592 
4593 
4594 
4595 
4596 
4597 
4598 
4599 
4600 
4601 



4617 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
4628 
4629 
4630 
4631 
4632 
4633 



022326 
022326 
022330 
022332 
022334 
022336 
022340 
022342 
022346 
022352 
022356 
022362 



010046 
010146 
010246 
010346 
010446 
010546 

016646 000022 
016646 000022 
016646 000022 
016646 000022 
000002 



022422 104413 

022424 016602 000002 

022430 012700 022602 

022434 010066 000002 

022440 012201 



,»TOP— <*16) 
,« ♦2— ( + 18) 
,« +4...R5 
I* +$...|t4 

>#*10— R2 
>»+12— Rl 
j#+14— R0 

tSAVREGI 



HOV 


R0I-CSP) 


mpush 


R0 


ON 


STACK 


MOV 


Rli-(SP) 


nPusH 


Rl 


ON 


STACK 


MOV, 


R2><(SP] 


nPusH 


R2 


ON 


STACK 


MOV 


R3>-(SP) 


nPusH 


R3 


ON 


STACK 


MOV 


R4,-(8P) 


nPusH 


R4 


ON 


STACK 


NOV 


R5.-(8P) 


nPusH 


RS 


ON 


STACK 


MOV 


22(SP]>><8P} 


nSAVE 


PS 


or 


MAIN rijOW 


HOV 


22CSP)»-CSP] 


MSAVE 


PC 


or 


MAIN rLOW 


HOV 


22(SP]f(SP) 


nSAVE 


PS 


or 


CALL 


MOV 


22(SP)>><SP) 


MSAVE 


PC 


or 


CALL 


RTI 













^RESTORE R0-R5 
I •CALL I 



4602 








f» RESREG 








4603 


022364 






tRESREGl 








4604 


022364 


012666 


000022 


HOV 


tSP) + 


22(SP) 


n RESTORE PC or CALL 


4605 


022370 


012666 


000022 


MOV 


CSP) + 


22(SP] 


M RESTORE PS or CALL 


4606 


022374 


012666 


000022 


MOV 


tSP) + 


22(8P) 


nRESTORE PC or MAIN rLOW 


4607 


022400 


012666 


000022 


HOV 


tSP) + 


22(SP) 


n RESTORE PS OF MAIN PLOW 


4608 


022404 


012605 




HOV 


CSP)t 


RS 


MPOP stack INTO RS 


4609 


022406 


012604 




HOV 


(SP) + 


R4 


MPOP stack INTO R4 


4610 


022410 


012603 




HOV 


(SP) + 


R3 


mpop stack into R3 


4611 


022412 


012602 




HOV/ 


(SP)* 


R2 


mpop stack into R2 


4612 


022414 


012601 




HOV 


tSP)* 


Rl 


nPOP stack into ri 


4613 


022416 


012600 




MOV 


(SP)* 


R0 


;iPOP stack INTO R0 


4614 


022420 


000002 




RTI 








4615 
















4616 








.SBTTL DOUBLE 


LENGTH 


BINARY TO 


decimal ASCII CONVERT ROUTINE 



t } »•*•»«***««•*•••••••*•••»*«•*•«*»»«•••«••••»•••••*•**•••••••**« 

;«IHI5 RbUTINe WILL CONVERT A 32«BIT BINARY NUMBER TO AN UNSIGNED 
}»DECIHAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
I*POSITIVE. 
>*CALL 

1* MOV #PNTR,-(SP) 

T* JSR PC>»t$DB2D 

J» RETURN 



nPOINTER TO LOW WORD OF BINARY NUMBER 



JSTHE FIRST ADDRESS OF ASCIZ 
nIS ON THE STACK 



IDB2DI SAVREG HSAVE REGISTERS 

MOV 2(SP)«R2 ; (PICKUP THE DATA POINTER 

MOV **DCCVl,,R0 ;|GET ADDRESS OF "tDCCVL" STRING 

MOV R0,2(SP) JIPUT ADDRESS OF ASCIZ STRING ON STACK 

MOV (R2)*,R1 siPICKUP THE BINARY NUMBER 
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;|SET UP TO DO 10 CONVERSIONS 
!> ADDRESS OF TEN POWER 



4634 


022442 


012202 






MOV 


(R2)'f>R2 


4635 


022444 


012737 


000012 


022520 


MOV 


*10.,4t 


4636 


022452 


012704 


022532 




MOV 


ltTNPWR»R4 


4637 


022456 


012705 


022534 




HOV 


*tTNPWRt2rR5 


4638 


022462 


005003 




lt( 


CLR 


R3 


4639 


022464 


161401 




2t( 


SUB 


(R4},R1 


4640 


022466 


005602 






SBC 


R2 


4641 


022470 


161502 






SUB 


(R5),R2 


4642 


022472 


002402 






BLT 


31 


4643 


022474 


005203 






INC 


R3 


4644 


022476 


000772 






BR 


21 


4645 


022500 


062401 




3t( 


ADD 


(R4)4',R1 


4646 


022502 


005502 






ADC 


R2 


4647 


022504 


062402 






ADD 


CR4}'f.R2 


4648 


022506 


022525 






CHP 


(R5)*,(R5)+ 


4649 


022510 


052703 


000060 




BIS 


t'0,R3 


4650 


022514 


110320 






MOVB 


R3i(R0)t 


4651 


022516 


005327 






DEC 


(PC) + 


4652 


022S20 


000000 




4I( 


.WORD 





4653 


022522 


001357 






BNE 


It 


4654 


022524 


105020 






CLRB 


(R0) + 


4655 


022526 


104414 






RESREG 




4656 


022530 


000207 






RTS 


PC 


4657 


022532 


145000 




ITNPWR( 


145000 




4658 


022534 


035632 






35632 




4659 


022536 


160400 






160400 




4660 


022540 


002765 






2763 




4661 


022S42 


113200 






113200 




4662 


022544 


000230 






230 




4663 


022S46 


041100 






041100 




4664 


022550 


000017 






17 




4665 


022552 


103240 






103240 




4666 


022554 


000001 






1 




4667 


022556 


023420 






23420 




4668 


022560 


000000 











4669 


022562 


0017S0 






1750 




4670 


022564 


000000 











4671 


022566 


000144 






144 




4672 


022570 


000000 











4673 


022572 


000012 






12 




4674 


022574 


000000 











4675 


022576 


000001 






1 




4676 


022600 


000000 











4677 


022602 


000014 




IDECVL( 


.BLKB 


12i 



4678 
4679 
4680 
4681 
4682 
4683 
4684 
4685 
4686 
4687 
4688 
4689 



((CLEAR PARTIAL 
((SUBTRACT TEN POWER 



((BR IF TEN POWER TO LARGE 
((ADD 1 TO PARTIAL 
((LOOP 

((RESTORE SUBTRACTED VALUE 



((HOVE TO NEXT TEN POWER 
((CHANGE PARTIAL TO ASCII 
( (SAVE IT 
((DONE? 

((BR IF NO 
( (TERHINAIOR 
((RESTORE REGISTERS 
( (RETURN 
((1.0E09 

((1.0E08 

((1.0E07 

((1.0E06 

;(1.0E0S 

( (1.0E04 

((1.0E03 

;(1.0E02 

((1.0E01 

;(1.0E00 

((RESERVE STORAGE FOR ASCIZ STRING 



.SBTTL TRAP DECODER 

; (•••••••••*««••••••«••»•*•«••*«•«•«•«••«•••*••••*••*••«••••«•••• 

(•THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
(•AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
(•or THE DESIRED ROUTINE, THEN USING THE ADDRESS OBTAINED IT WILL 
(•GO TO THAT ROUTINE. 



022616 010046 



tTRAPI 



HOV 



R0f(SP} 



((SAVE R0 
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SICa 0103 



(690 


022620 


016600 


000003 


MOV 


3(SP)>RCl 


nCCT TRAP ADDRESS 


4691 


022624 


00S740 




TST 


-(R0) 


MBACKUP BY 2 


4693 


023626 


111000 




H0V8 




nOET RIGHT BVIE OF TRAP 


4693 


0336)0 


006300 




ASb 


R0 


flPOSITION FOR INDEXING 


4694 


033632 


016000 


022653 


MOV 


8TR?AD(R0) rR0 


>> INDEX TO TABLE 


469S 


033636 


000200 




PTS 


Re 


JJGO TO ROUTINE 



696 
697 
693 
699 
700 
701 
703 
703 
704 
70S 
706 
707 
708 
709 
710 
711 
713 
713 
714 
715 
716 
717 
718 
719 
730 
731 
732 
723 
724 
725 
736 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
719 
740 
741 
743 
743 
744 
745 



033640 011646 
033643 016666 
022650 000003 



0326S2 
033654 
022656 
033660 
023663 
022664 



023670 
023672 
023674 
033676 
032700 
022702 

033704 

033706 

023710 

023712 

023714 

022716 

032720 

022722 



033640 
020174 
022020 
021774 
023034 
01775ii) 



032666 02)070 



021000 
031303 
031373 
031673 
033336 
023364 

016536 

016414 

015770 

016033 

016544 

016643 

016440 

022322 



JJTHIS IS USE TO HANDLE THE "GETPRI" MACRO 



000004 000003 



ITRAP3I MOV 
MOV 
RTI 



tSP)»-(SP) 
4(SP},3(SP) 



tlMOVE THE PC DOWN 
• IHOVE THE PSW DOWN 
nRESTORE THE PSW 



.SBTTL TRAP TABLE 

>*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
»«By THE "TRAP" INSTRUCTION. 



I ROUTINE 

f ■-- 

tTRPADI .WORD STRAPS 

ITYPE MCALL«TYPE 

ITYPOC nC*LL«TyPOC 

tTYPOS nCALL»TYPOS 

STYPCN mCALL»TYPON 

ITtPDS »»CALL»TYPD5 

8GTSWR nCALL"GT5WR 

ICKSWR nCALLSCKSWR 

IRDCHR nCALL'ROCHR 

tRDLIN MCALL'RDLIN 

$RD0CT nCALL«RDOCT 

SSAVREG MCALLSSAVREG 

IRESREG I ICALLXRESREG 



TRAP+1(104*01) TTY TYPEOUT ROUTINE 

TRAPl'3(104403} TYPE OCTAL NUMBER (WITH LEADING ZEROS] 

TRAPf3(104403} TYPE OCTAL NUMBER (NO LEADING ZEROS) 

TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL3 

TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 

TRAP+6(104406) GET SOFT-SWR SETTING 

TRAP')'7( 104407) TEST FOR CHANGE IN SOFT-SWR 

TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 

TRAP*U(ie44ll) TTY TYPEIN STRING ROUTINE 

TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY 

TRAP*13(104413) SAVE R0-R5 ROUTINE 

TRAP+14(104414) RESTORE R0-R5 ROUTINE 



CN.RST » >CALL«CON. RESET TRAP+15 ( 104415 ) CONTROL BESET ROUTINE 

DR.RST nCALL«DRV, BESET TRAP+16 { 10441 6 ) DRIVE RESET ROUTINE 

MSGi; nCALL'MESAGE TRAP^-l 7 ( 1 0441 7 ) MESSAGE HANDLER 

TY.MSG nCALL'TYPMSG TRAPt30( 104430) MESSAGE TYPEOUT ROUTINE 

CrJ.ROy I iCALt'CON.RDY TRAP+21 (104431 ) WAIT FOR CONTROL RESGY 

TSTBWS nCALL»TST.RWS IRAP+22( 104422) TEST H/W/S RDY SET 

RES. DO ! jCALLaRESDON TB AP+2 3 ( 1 04423 ) DRIVE RESET DONE? 

TYPDES » ICALL»TYPDSS TRAP+34 ( 1 04424) TYPE DECIMAL, SUPBES LOG 0'S 

.SBTTL POWEP DOWN AND UP ROUTINES 
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4746 










; 1 •««•»»»•«•«••««•«•••»•••»*•«••»•«**•***•«•«•«**•«'*•#•»«»«•«*««• 


4747 










tPower 


DOWN ROUTINE 




4748 


022724 


012737 


033070 


000034 


tPWRONt 


MOV 


tilLLUPjUfPHBVEC 


JISET FOB FAST UP 


4749 


022732 


012737 


000340 


000036 




MOV 


#340.»#PWRVEC+2 


J ;PRI0l7 


4750 


022740 


010046 








MOV 


R0,-(SP) 


nPUSH R0 ON STACK 


4751 


022742 


010146 








MOV 


R1,-(SP) 


JiPUSH Rl ON STACK 


4752 


022744 


01034b 








MOV 


R2,-(SP) 


; IPUSH R2 ON STACK 


4753 


022746 


010346 








MOV 


R3,-(SP) 


; I PUSH B3 ON STACK 


4754 


022750 


010446 








MOV 


R4,-(SP) 


! J PUSH R4 ON STACK 


4755 


022752 


010546 








MOV 


R5,-{SP) 


nPUSH B5 ON STACK 


4756 


022754 


017746 


156160 






MOV 


(>SWR.-(SP) 


nPUSH 0SWR ON STACK 


4757 


022760 


010637 


033074 






MOV 


SP,JSAVfl6 


iiSAVE SP 


4758 


022764 


013737 


027776 


000034 




MOV 


»$PWRUP,3iPWBVEC 


MSET UP VECTOfi 


4759 


022772 


000000 








HALT 






4760 


022774 


000776 








BR 


.-3 


! J HANG UP 


4761 


















4762 












4763 










:POWER 


UP ROUTINE 




4764 


022776 


013737 


023070 


000024 


tPWRUPl 


MOV 


«tlLLUP,»*PWRVEC 


MSET FOR FAST DOWN 


4765 


023004 


013706 


023074 






MOV 


tSAVR6,SP 


j;GET SP 


4766 


023010 


005037 


023074 






CLR 


ISAVB6 


JJWAIT LOOP FOR THE TTY 


4767 


023014 


005237 


023074 




ISI 


INC 


«SAVR6 


nWAIT FOR THE INC 


4768 


033030 


001375 








BNE 


It 


};0F WORD 


4769 


033032 


012677 


156112 






MOV 


(SP)+«»SWB 


SJPOP STACK INTO SISWR 


4770 


023026 


013605 








MOV 


(SP)+.R5 


jjPOP STACK INTO R5 


4771 


023030 


013604 








MOV 


(SP) + ,R': 


;rt>OP STACK INTO R4 


4772 


023033 


013603 








MOV 


(SP)+,R3 


J I POP STACK INTO R3 


4773 


033034 


013602 








MOV 


(SP)+,R3 


nPOP STACK INTO R3 


4774 


033036 


012601 








MOV 


(SP)+.R1 


OPOP STACK INTO Rl 


4775 


033040 


013600 








MOV 


(5P)*»P0 


nPOP STACK INTO R0 


4776 


023042 


012737 


022734 


000024 




MOV 


««pwrdn,»ipnrve; 


(JSET UP THE POWER DOWN VECTOR 


4777 


023050 


012737 


000340 


000026 




MOV 


l340r8«PWRVEC+2 


nPRI0l7 


4778 


033056 


104401 








TYPE 




J REPORT THE POWER FAILURE 


4779 


033060 


023076 






4PKRMGI 


.WORD 


tPOWER 


1 (POWER FAIL MESSAGE POINTER 


4780 


033063 


012716 








MOV 


(PC)*, (SP) 


nRESTART AT PWRFL 


4781 


033064 


004170 






8PWRA0I 


.WORD 


PWRFL 


IIRESTART ADDRESS 


4782 


033066 


000002 








RTI 






4783 


033070 


000000 






$illup: 


HALT 




tlTHE POWER UP SEQUENCE HAS STARTED 


4784 


023073 


000776 








BR 


.-3 


n BEFORE THE POWER DOWN WAS COMPLETE 


4785 


023074 


000000 






ISAVR6I 







MPl'T THE SP HERS 


4786 


023076 


00501S 


047520 


042527 


SPOWEP! 


.ASCIZ 


<15><i2>''P0WES" 




4787 


023104 


000123 














4788 












• EVEN 






4789 


















4790 
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SEfi eies 



4791 .SBTTL FUNCTION SELECTION PROGRAM 

4792 

4793 ?THIS IS THE FUNCTION SELECTION PROGRAM, 

4794 jON ENTERING THIS SUB-PROGRAM THE FIRST QUESTION ASKED IS 

4795 • FUNCTION? IN RRPLY TYPE IN ONE OF THE FOLLOWING COMMANDS. 



4796 


JCOHMANOSI 


CR 




CONTROL BESET 


4797 


f 


OR 




DRIVE RESET 


4799 


? 


SK 




SEEK 


4799 


t 


MR 




WRITE 


490(1) 


1 


RD 




READ 


4901 


t 


MC 




WRITE CHECK 


4902 


t 


RC 




READ CHECK 



4903 jTERMINATE EVERY COMMAND WITH <CR>. FURTHER QUESTIONS CRKBA? , RKDAT « 

4804 ;#W0RDS7 ) WILL BE ASKED, TYPE IN THE BUS ADDRESS (0C7AL}> DISK ADDRESS 

4605 >COCTAL]f AND NUMBER OF WORDS TO BE TRANSFERRED COCTAL). IF A NON-EXISTENT 

4806 {CYLINDER OR A NON-EXISTENT SECTOR IS TYPED IN, THE QUESTION (RK0A7} WILL 

4307 ;BE ASKED AGAIN, 
4808 

49U9 ;IN CASE OF SEEK FUNCTION* SEEK IS DONE BETWEEN A SET OF CYLINDERS GIVEN 

4810 >BY THE USER (CYL17 » CYL2T), IN REPLY TO CCYL17, CYL2T5 TYPE IN THE OCTAL 

4911 JCYLINDEB NUMBERS BETWEEN WHICH 'I'HE SEEK IS TO BE DONE. SET SWITCH 

4812 JREGISTER BITS <15-13> TO THE DRIVE t ON WHICH SEEK IS TO BE DONE. 
4813 

4314 JIN CASE OF A WRITE FUNCTION IF S« IS SET TO 1 THE PROGRAM WILL ASK 

4815 JTHE USER FOR THE PATTERN TO BE WRITTEN: 

4816 I PATRN7125252<CR> 

4817 JTHE USER SHOULD TYPE IN THE (OCTAL) PATTERN HE WANTS TO WRITE. 
4919 JNOTE THAT THE NUMBER OF WORDS TRANSFERRED SHOULD BE WITHIN THE 
4819 »BOUNOS OF THE SYSTEM. 

i92<S 

4921 ;IN CASE OF ft WRITE CHECK FUNCTION IF SW0 IS SET TO 1 THE PROGRAM 

4822 ;WILL ASK THE USER FOR THE PATTERN TO BE WRITE CHECKED: 

4823 ; PATRN7125252<CR> 

4824 fTHE USER SHOULD TYPE IN THE (OCTAL) PATTERN TO BE WRITE CHECKED. 
4925 

4826 ;LOCATIONS "IO8UF0" ONWARDS ARE RESERVED FOR DATA BUFFERS. YOU CAN USE 

4827 ITHESE LOCATIONS FOR DOING DATA TRANSFERS IN THIS PROGRAM (OR YOU CAN 
4829 JUSE ANY OTHER BUFFER FOR DATA TRANSFER AS LONG AS IT DOES NOT OVERLAY 
4829 ;THE PROGRAM), 

4830 

4831 ;THE SAME FUNCTION IS PERFORMED AGAIN AND AGAIN, THUS PROVIDING 

4832 ;A VERY GOOD SCOPE LOOP, IF YOU WANT TO GIVE A NEW FUNCTION PUT SW 3 UP. 

4833 jTHE QUESTION (FUNCTION?) WILL BE ASKED AND YOU CAN START ALL OVER AGAIN. 

4834 fIF ON EXECUTING A FUNCTION AN ERROR OCCURS, IT IS REPOTRED , WITH 

4835 ; RELEVANT REGISTER CONTENTS GIVEN. 
4336 

4837 !R2 CONTAINS RKCS CONTENTS 

4838 JP3 CONTAINS RKDA CONTENTS 

4839 ;R4,RS CONTAIN THE CYLINDER tS BETWEEN 

4340 >WHICH SEEK IS TO BE DONE. 

4341 023106 FUNBEG: 

4842 023106 104401 023114 TYPE ,658 !>TYPE ASCI2 STRING 

4343 023112 000407 BR b4« JjGET OVER THE ASCIZ 

4844 ::65»: .ASCIZ <1S><12>/FUNCTI0N7 / 

4845 023132 64S! 

4846 023132 !a44!l KDLIN 
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4847 


023134 


012600 






HOV 


(5P)+,R0 


4848 


023136 


112001 






HOVB 


(B0)+,R1 


4849 


023140 


120127 


000127 




CMPB 


R1,»'W 


4850 


023144 


001026 






BNE 


2$ 


4851 


023146 


121027 


000122 




CMPB 


(R0),»'R 


4852 


023152 


001010 






BNE 


IS 


4853 


023154 


004737 


024000 




JSR 


PC,CHKSW0 


4854 


023160 


012702 


004003 




MOV 


»4003,R2 


4855 


023164 


000536 






8B 


NXTOA 


4356 














4857 


023166 


012702 


000003 


9$: 


MOV 


«3,R2 


4859 


023172 


000521 






BR 


NXTBA 


4859 


023174 


121027 


000103 


It: 


CMPB 


(R0),»'C 


436^ 


023200 


001342 






BNE 


FUNBEG 


4861 


023202 


004737 


024000 




JSR 


PC,CHKSW0 


4362 


023206 


012702 


004007 




HOV 


14007, R2 


4863 


023212 


000523 






BR 


NXTDA 


4864 














4865 


023214 


012702 


000007 




MOV 


»7,R2 


4866 


023220 


000506 






BP 


NXTBA 


4867 














4868 


023222 


120127 


000122 


2s: 


CMPB 


Rl,i'R 


4869 


023226 


001014 






BNE 


3$ 


4870 


023230 


121027 


000104 




CMPB 


(R0),l'D 


4871 


023234 


001003 






BNE 


8$ 


4872 


023236 


012702 


000005 




MOV 


*5,R2 


4873 


023242 


000475 






BR 


NXTBA 


4874 


023244 


121027 


000103 


8s: 


CMPB 


(Ra),»'C 


4375 


023250 


001316 






BNE 


FUNBEG 


4376 


023252 


012702 


000013 




HOV 


113, R2 


4877 


023256 


000501 






BR 


MXTDA 


4878 














4879 


023260 


120127 


000104 


3ti 


CMPB 


R1,#'D 


488" 


023264 


001006 






BNE 


4S 


4391 


023266 


121027 


000122 




CMPB 


(R0),»'R 


4882 


023272 


001305 






BHE 


FUNBEG 


4883 


023274 


012702 


000015 




MOV 


115, R2 


4884 


023300 


000470 






BR 


NXTDA 


4885 














4886 


023302 


12B127 


000103 


48: 


CMPB 


Rlji'C 


4887 


023306 


001006 






BNE 


5t 


4888 


023310 


121027 


000122 




CMPB 


(R0),»'R 


4899 


023314 


001274 






BNE 


FUNBEG 


4390 


023316 


012702 


000001 




MOV 


*1,R2 


4891 


023322 


000533 






BR 


EXEC 


4892 














4893 


023324 


120127 


000123 


5tl 


CMPB 


Rl,t'S 


4894 


023330 


001266 






BNE 


FUNBEG 


4895 


023332 


121027 


000113 




CMPB 


(R0),i'K 


4396 


023336 


001263 






BNE 


FUNBEG 


4897 


023340 


012702 


000011 




MOV 


lll,R2 


4398 














4899 


023344 






611 






4900 


023344 


104401 


023352 




TYPE 


,67$ 


4901 


023350 


000404 






BR 


661 


4902 








»>67»: 


.ASCII 


/CYLl? / 



JCHECK SW SET? 



fCHECK SW SET? 



MTYPE ASCIZ STRING 
IIGET OVER THE ASCIZ 
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SEQ 0107 



4903 


023363 






66tl 






4904 


033362 


004737 


033746 




JSR 


PC»INPT 


4905 


033366 


000766 






BR 


68 


4906 


033370 


010004 






NOV 


R0«R4 


4907 














490S 


0231372 






7»l 






4909 


023372 


104401 


023400 




TYPE 


.698 


4910 


023376 


000404 






BR 


688 


4911 








n69$i 


.ASCIZ 


/CYli2t / 


4913 


023410 






eeti 






4913 


033410 


004737 


023746 




JSR 


PC»IMPT 


4914 


033414 


000766 






BR 


7* 


4919 


033416 


010005 






MOV 


R0>RS 


4916 


023420 


017700 


155514 




HOV ' 


•SHR,R0 


4917 


023434 


042700 


017777 




BIC 


#17777, R0 


49lS 


023430 


050004 






BIS 


R0,R4 


4919 


023432 


050005 






BIS 


R0,R5 


4930 


023434 


000466 






BR 


EXEC 


4931 














4933 














4933 


023436 






NXTBAI 






4934 


033436 


104401 


023444 




TYPE 


• 658 


493S 


033443 


000404 






BR 


648 


4936 








f r69it 


.ASCIZ 


/RKBAT / 


4937 


023454 






6411 






4938 


023454 


104412 






RDOCT 




4939 


023456 


013637 


001476 




MOV 


(SP)+«INDX2 


4930 














4931 


033463 






NXTOAI 






4933 


033463 


104401 


023470 




TYPE 


f65| 


4933 


033466 


000404 






BR 


648 


4934 








n6Sii 


.ASCIZ 


/RKDA? / 


4935 


033500 






6481 






4936 


033500 


104412 






RDOCT 




4937 


023502 


012600 






HOV 


(SP)+<R0 


4938 


023504 


010001 






HOV 


R0,R1 


4939 


023506 


006301 






ASR 


Rl 


4940 


023510 


006201 






ABR 


Rl 


4941 


023513 


006201 






ASR 


Rl 


4943 


023514 


006201 






ASR 


Rl 


4943 


023516 


006201 






ASR 


Rl 


4944 


023520 


042701 


177400 




BIC 


8177400, Rl 


4945 


033534 


020127 


000312 




CMP 


Rl,t312 


4946 


033530 


003354 






BGT 


NXTDA 


4947 


033532 


010001 






MOV 


R0,R1 


4948 


023534 


042701 


177760 




BIC 


1177760, Ri 


4949 


023540 


020127 


000013 




CMP 


Rl,#13 


4950 


023544 


003346 






B5T 


NXTDA 


4951 


023546 


010003 






HOV 


R0,R3 


4953 


023550 


022702 


000015 




CMP 


*1S,^R2 


49S3 


033554 


001416 






BGQ 


EXEC 


4954 














4955 














4956 


023556 






NXTHCt 






4957 


033556 


104401 


023564 




TYPE 


,65$ 


4958 


023562 


000405 






BR 


648 



nTYPE ASCIZ STRING 
nGET OVER THE ASCIZ 



IGET DRIVE * FROM SN REa<15-13> 
>Cl<R UNMAMTED BITS 
(SET DRIVE • IN DSK ADRES 



IITYPE ASCIZ STRING 
nGET OVER THE ASCIZ 



MTYPE ASCIZ STRING 
nCET OVER THE ASCIZ 



MIYPE ASCIZ STRING 
nGET OVER THE ASCIZ 
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4959 










>>65tl 


.ASCIZ 


/*HORDST / 




4960 


023976 








6481 








4961 


023576 


104413 








RDOCT 






4962 


023600 


009416 








NEC 


(SP} 




4963 


023602 


013637 


001502 






MOV 


(SP)4i,INDX4 




4964 


023606 


000401 








BR 


EXEC 




4965 


















4966 


033610 


104419 






EXEC It 


CON. RESET 


ICLR EROR, CONTROL RESET 


4967 


033613 


022702 


000011 




EXCCt 


CMP 


tll,R2 


(SEEK FUNCTION? 


4968 


033616 


001005 








BNE 


28 


mo 


4969 


033620 


020403 








CMP 


R4,R3 


flF SEEK, INSERT THE RIGHT 


4970 


023622 


001402 








BEQ 


38 


ICYLINDER ADDRESS 


4971 


023624 


010403 








HOV 


R4,R3 




4972 


023626 


000401 








BR 


28 




4913 


023630 


010503 






381 


NOV 


R9,R3 




4974 


023632 


013777 


001476 


199622 


281 


MOV 


INDX2,0RKBA 




4975 


023640 


010377 


155620 






HOV 


R3,0RKDA 




4976 


023644 


013777 


001502 


159606 




MOV 


INDX4,«RKHC 




4977 


033653 


010277 


199600 






MOV 


R2,«RKCS 




4978 


033656 


105777 


199974 




181 


TSTB 


8RKC8 


;HAIT FOR CNTROL RDY 


4979 


023663 


100375 








BPL 


18 




4980 


033664 


022702 


000001 






CMP 


11, R2 


tlF IT'S CON RESET FUNCTION 


4981 


033670 


001401 








BEQ 


48 


;DONT MAIT FOR R/H/S RDY 


4983 


033672 


104423 








RE8D0N 




»R/H/S HOY? 


4983 


















4984 


033674 


033777 


140000 


195594 


481 


BIT 


1140000, tRKCS 


1 ERROR? 


4985 


023702 


001006 








BNE 


FUNCRR 


tYZS 


4986 


033704 


032777 


000010 


155226 


CHSHI 


BIT 


ISH3,0SHR 


^TERMINATE THIS FUNCTION OR REPEAT? 


4987 


023712 


001737 








BEQ 


EXEC 


> REPEAT 


4988 


033714 


000137 


023106 






JHP 


FUHBEG 


{TERMINATE 


4989 


















4990 


















4991 


023730 


012737 


023610 


001110 


FUNERRI 


MOV 


»EXEC1,8LPERR 


;8BT UP FOR LUPING 


4992 


033736 


012737 


023610 


001106 




MOV 


»EXeC1>8LPA0R 




4993 


033734 


004737 


016106 






JSR 


PC,GT4RG 




4994 


023740 


104030 








ERROR 


30 


IREPORT ERROR 


4995 


023743 


104415 








CON, RESET 


ICLR ERROR 


4996 


023744 


000797 








BR 


CH8H 




4997 


















4998 


023746 


104412 






IHPTI 




RDOCT 




4999 


023750 


012600 








HOV 


(8P}t,R0 




5000 


023752 


030027 


000312 






CMP 


R0,t312 




5001 


023796 


003007 








BGT 


18 




5002 


033760 


006300 








ASL 


R0 




5003 


033763 


006300 








ASL 


R0 




9004 


033764 


006300 








ASL 


R0 




5005 


033766 


006300 








ASL 


R0 




5006 


023770 


006300 








ASL 


R0 




9007 


033772 


062716 


000002 






ADD 


82, (SP) 




5008 


023776 


000207 






181 


RTS 


PC 




5009 


















5010 


024000 


032777 


000001 


199132 


CHKSM0I 


BIT 


«8H0,»8HR 


INRITE A PATTERN GIVEN BY USER? 


5011 


034006 


001416 








8E0 


18 


)H0 


5012 
















JYES, ASK FOR PATTERN 


5013 


034010 


104401 


034016 






TYPE 


,658 


nTYPE ASCIZ STRING 


5014 


034014 


000404 








BR 


648 


IIGET OVER THE ASCIZ 
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SEw 3109 



5015 










) )65Si 


.ASCIZ 


/PATRN?/ 




5016 


024026 








64$: 










024026 


104412 








RDOCT 






501 8 


^24030 


012637 


031 362 






MOV 


(SP)'»>I0BUF1 


tSAVE THE PATTERN 


501 9 


024034 


012737 


031 362 


001476 




MOV 


«10BUn»INDX2 






024042 


000207 








RTS 


PC 




5021 


024044 


062716 


000006 




Its 


ADD 


116. CSP} 


[SKIP HXT 2 INST ON RETURN 


5022 


024050 


000207 








RTS 


PC 




5023 




















024052 


104416 






FCHECKt 


DRV. RESET 






024054 


104415 








CON. RESET 






024056 


013737 


001230 


0021 20 




MOV 


DRIVA0»DRH0LD 


ISAVE DRIVE ADRR 




024064 


032737 


020000 


001 230 




BIT 


t20000«ORtVAD 


>SEE IF ODD 




024072 


001404 








BEQ 


It 






024074 


042737 


020000 


001230 




BIC 


«20000.DRIVAD 


fHAKE EVEN 




a "3 A 1 a? 


00040' 








BR 


21 




5031 


w * *t 1 ft 


0527 ! " 


020000 


001230 


1 1 1 


BIS 


*20000>DRIVAD 


(MAKE ODD 


S032 


024112 


013777 


001230 


155344 


2t t 


MOV 


0RIVADi9RKDA 


SDRIVE AODR 


50 33 


024120 


012777 


00001 1 


1S53J0 




MOV 


«11,»RKCS 


(DRIVE SEEK 


5034 


024126 


104421 








CON.RDY 








0241 30 


013777 


002 120 


155326 




MOV 


DRH0L0><)RKDA 


lOTHER DRIVE 






104421 








CON.RDY 








0241 40 


032777 


0001 00 


155304 




EXT 


*100>»RKDS 


IHEAEDS IN MOTIONN? 




024146 


001001 








BnE 


3i 


>YEs"rK-05F 




024150 


005725 








TST 


(R5) + 




sSIb 


024152 


01 3737 


002120 


001230 


3$l 


HOV 


DRHOLDfDRIVAD 


tRESTORG ADDR 




024160 


104416 








DRV. RESET 






024162 


000205 








RTS 


R5 






024164 


005037 


001230 




SlZEFl 


CLR 


DRIVAO 


[START AT DR0 


5044 


024 170 


01 2700 


001 232 






HOV 


#DRIVS,R0 


(TABLE OF AVAIL DRIVES 


5045 


024174 


1 057 1 






4t t 


TSTB 


CR0) 


(THIS DRIVE HERE? 




024176 


00 1413 








BEQ 


2S 


( NO 




V C 4 « V V 


1 05760 


000002 






TSTB 


2(R03 


(COMPLEMENT HERE? 


5048 


024204 


001 4 1 








BEQ 


2S 


( NO 


50A9 


024206 


004537 


024052 






JSR 


R5,FCHECK 


(SEE IF F MODEL 




02421 2 


000405 








BR 


2$ 


(J MODEL 


505 1 


024214 


052710 


000002 






BIS 


«2. (R0) 


(SET SIGN FOR F 


5052 


024220 


052760 


000002 


000002 




BIS 


*2r2(R0) 


(BOTH DRIVES 


5053 


024226 


005720 






2S: 


TST 


CR0)* 




5054 


024230 


005720 








1ST 


(R0) + 


(NEXT FAIR OF DRIVES 


5055 


024232 


062737 


040000 


001230 




ADD 


140000, DRIVAO 


(NEXT ACTl'L ADOR 


5056 


024240 


022700 


001251 






CMP 


»DRIV7+1,R0 


(CHECKED ALL? 


5057 


024244 


003353 








BGT 


4$ 


(NOT YET 


5058 


024246 


000207 








RTS 


PC 




5059 


















5060 










;ERROR 


MESSAGES 






5061 


















5062 


















5063 


024250 


047103 


051124 


020114 


EHl 5 


.ASCIZ 


/CNTBL RDY DIDN 


'I SET AFTR SEEK/ 


5064 


024256 


042122 


020131 


044504 










5065 


024264 


047104 


052047 


051440 










5066 


024272 


052105 


040440 


052106 










5(467 


024300 


020122 


042523 


045505 










5068 


024306 


000 














5069 


















5070 


024307 


123 


04711 1 


047440 


EM2» 


.ASCIZ 


/SIN ON SEEK/ 
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5071 


024314 


020116 


042523 


045505 








5072 


024322 


000 












5073 
















5074 


024323 


104 


042522 


047440 


E»13! 


.ASCIZ 


/ORE ON SEEK/ 


5075 


024330 


020116 


042523 


045505 








5076 


024336 


000 












5?77 
















5078 


024337 


047 


051105 


023522 


EM4: 


.ASCIZ 


/'ERR' ON SEEK/ 


5079 


024344 


047440 


020116 


042523 








50S0 


024352 


045505 


000 










5081 
















5382 


024355 


104 


052522 


047440 


EM5: 


.ASCIZ 


/DRU ON SEEK, PUT DRV ON 'LOAD* i 'RUN'/ 


5083 


024362 


0201 16 


042523 


045505 








5084 


024370 


020054 


052520 


020124 








5085 


024376 


051104 


020126 


047117 








5086 


024404 


023440 


047514 


042101 








5087 


024412 


020047 


020046 


051047 








5088 


024420 


047125 


000047 










5089 
















5090 


024424 


027522 


027527 


020123 


EM6: 


.ASCIZ 


"R/W/S RDY NOT SET AFTER SEEK" 


5091 


024432 


042122 


020131 


047516 








5092 


024440 


020124 


042523 


020124 








5093 


024446 


043101 


042524 


020122 








5094 


024454 


042523 


045505 


000 








5095 
















5096 


024461 


123 


047111 


047440 


EM7 : 


.ASCIZ 


/SIN ON WRT FMT/ 


5097 


024466 


020116 


051127 


020124 








5i?98 


024474 


046506 


000124 










5099 
















5100 


024500 


042447 


051122 


020047 


EM10: 


.ASCIZ 


/'ERR' ON DOING WRITE FMT/ 


5101 


024506 


047117 


042040 


044517 








5102 


024514 


043516 


053440 


044532 








5103 


024522 


042524 


043040 


052115 








5104 


024530 


000 












5105 


024531 


123 


047111 


047440 


emu: 


.ASCIZ 


"SIN ON RD/FMT" 


5106 


024536 


020116 


042132 


043057 








5107 


024544 


052115 


000 










5108 


024547 


047 


051105 


023522 


EH12I 


.ASCIZ 


/'ERB' ON READ FMT/ 


5109 


024554 


047440 


020116 


042522 








5110 


024562 


042101 


043040 


052115 








5111 


024570 


000 












5112 


024571 


127 


047522 


043516 


EM13: 


.ASCIZ 


/WRONG HDRS FROM 'SEC«'/ 


5113 


024576 


044040 


051104 


020123 








5114 


024604 


051106 


046517 


023440 








5115 


024612 


042523 


021503 


000047 








5116 
















5117 


024620 


05U05 


051117 


047440 


EM14t 


.ASCIZ 


/EPOB ON IMPLIED SEEK FROM 'CYLA' TO 'CYLB'/ 


5118 


024626 


020116 


046511 


046120 








5119 


024634 


042511 


020104 


042523 








5120 


024642 


045505 


043040 


047522 








5121 


024650 


020115 


041447 


046131 








5122 


024656 


023501 


052040 


020117 








5123 


024664 


041447 


046131 


023502 








5124 


024672 


000 












5125 
















5126 


024673 


122 


040505 


020104 


M515: 


.ASCIZ 


/READ WRONG HDRS FROM 'CYLB' ABOVE/ 
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5127 


024700 


051127 


047117 


020107 




5138 


024706 


042110 


051522 


043040 




5129 


02471 4 


047522 


020115 


041447 




5130 


024722 


046131 


023502 


04044ti 




5131 


024730 


047502 


042536 


000 




5132 












513 3 


024735 


122 


040505 


030104 


EM16I 


5134 


024742 


051 127 


047117 


026107 




5135 


024750 


030440 


052123 


053440 






024756 


0421 22 


043040 


047522 




5137 


024764 


0201 1 5 


042523 


020103 




5138 


024772 


026060 


023440 


054503 






025000 


041114 


020047 


047450 






025006 


030 116 


04651 1 


046120 




«. Tr 

9141 


02501 4 


04251 1 


0201 04 


043523 






025022 


045505 


043040 


047523 




5143 


025030 


0201 1 5 


041447 


046131 




5144 


025036 


023501 


000051 






5145 












5146 


025042 


042532 


042101 


030440 


MS17I 


5147 


025050 


052123 


053440 


042122 




5148 


025056 


043040 


047522 


0201 15 




5149 


025064 


042523 


020103 


026061 




5150 


025072 


023440 


054503 


041114 




5151 


025100 


020047 


041 101 


0531 17 




5152 


025106 


000105 








5153 












5154 


0251 10 


042533 


042101 


053440 


EM20i 


5155 


025116 


047533 


043516 


044040 




5156 


025124 


051 104 


020123 


047117 




5157 


0251 32 


044440 


050115 


044514 




5158 


025140 


043105 


051440 


042505 




5159 


025 1 46 


030113 


051 106 


046517 




5160 


025154 


033440 


054503 


040S14 




5161 


025162 


030047 


047524 


023440 




5162 


025170 


054503 


041 114 


000047 




5163 












5164 


025176 


051 105 


051117 


047440 


EM31 1 


5165 


025204 


0201 1 6 


047504 


047111 




5166 


025212 


020107 


051 127 


052111 




5167 


025220 


020105 


047117 


043040 




5168 


025226 


051 51 1 


0001 1 3 






5169 












5170 


025232 


044523 


0201 16 


0471 1 7 


EM23t 


5171 


025240 


042040 


044517 


043516 




5172 


025246 


053440 


044523 


043524 




5173 


025254 


000 








5174 












5175 


025255 


110 


020105 


047117 


EM23t 


5176 


025263 


042040 


044517 


043516 




5177 


025270 


051040 


040505 


000104 




5178 












5179 


025276 


051S03 


020105 


047117 


EM24I 


5180 


025304 


051040 


040505 


000104 




5181 












5183 


025313 


040504 


040524 


042440 


EM35J 



EM16I .ASCIZ /READ WRONG, 1ST WRD FROM SEC 0( 'CYLB' (ON IMPLIEU SEEK FROM 'CYLA')/ 



MS17I .ASCIE /READ 1ST WRD FROM SEC 1, 'CVLB' ABOVE/ 



EM20J .ASCIZ /READ WRONG HDRS ON IMPLIED SEEK FROM 'CTfLA' TO 'CYL8'/ 



EM31« , ASCIZ /EROR ON DOING WRITE ON DISK/ 



EM23I .ASCIZ /SIN ON DOING WRITE/ 



EM23t .ASCIZ /HE ON DOING READ/ 
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5183 
5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 
5198 
5199 
5200 
5201 
5203 
5203 
5304 
5305 
5206 
5207 
5208 
5209 
5210 
5211 
5213 
5213 
5214 
5315 
5316 
5217 
5218 
5219 
3230 
S231 
5233 
5223 
5324 
5235 
5336 
5227 
5228 
5229 
5230 
5231 
5333 
5233 
5334 
S235 
5236 
5337 



035330 
025336 
025334 
025342 
025350 

025354 
025362 
02S3T0 

025372 
025400 
035406 



025414 
035433 
025430 
025436 
035444 
025452 
025460 

025462 
025470 
035476 
035504 

025512 
025520 
025526 
025534 
025542 
02SS50 
025556 
025564 

025567 
035574 
035603 
025610 
025616 
035624 
025632 
035640 
025646 
025654 
025662 
035664 
035672 
025780 



047522 
051040 
051106 
051511 
042522 

043510 
051137 
000113 

051137 
020113 

000 



020040 
020040 
020123 
042513 
051040 
020040 
000101 

042523 
020040 
047111 
051123 

030040 
030040 
030133 
043513 
051040 
030040 
030101 
046131 

040 
030040 
030123 
043513 
051040 
03B040 
020073 
054503 
020040 
030040 
000103 
042523 
043110 
042126 



020122 


047117 


040505 


020104 


046517 


042040 


020113 


043101 


000123 




047440 


020116 


020124 


044103 


020124 


044103 


051105 


051117 


047522 


000123 


041520 


030040 


051040 


041513 


020040 


051040 


020122 


030040 


043113 


030133 


051040 


043113 


045505 


031440 


043533 


045505 


030107 


043440 


051117 


000133 


041530 


030040 


051040 


041513 


030040 


051040 


030133 


030040 


043113 


030123 


0S1040 


043113 


030040 


041440 


000 




050040 


030103 


051040 


041511 


030040 


051040 


020123 


030040 


043113 


030*23 


045523 


040504 


051104 


030040 


020114 


030040 


052533 


030133 


020040 


043533 


021503 


020040 


020132 


04^522 


000 





EH26I .ASCIZ /HE ON WRT CHK/ 

EH27I .ASCIZ /HRT CHK EROR/ 

EM30I .ASCIZ /EROR/ 
IDATA HEADERS 

DHlt .ASCIZ / PC RKCS RKER RKDS RKDA/ 



DH6I .ASCIZ /SEEK • SEEKING ERRORS/ 



DH7t .ASCIZ / PC RKCS RKER RKDS RKDA CYL/ 



DHUI .ASCIZI/ PC RKCS HKEP RKDS RKDAJ OR CYL SUR 



DH13I .ASCIZ /8ECI HDR RCVD/ 
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5239 


025703 


040 


050040 


020103 


5240 


025710 


020040 


020040 


054503 


5241 


0257 1 6 


040514 


020040 


020040 


5242 


025724 


054503 


041114 


020040 


5243 


025732 


020040 


051040 


042513 


5244 


025740 


020122 


020040 


045522 


5245 


025746 


051 504 


020040 


020040 


5246 


025754 


052040 


054522 


000043 


5247 










5246 


025762 


020040 


041520 


020040 






023040 


041440 


046131 




025776 


020101 


020040 


054503 


5251 






020040 


020040 




02601 2 


054105 


041520 


020124 


5253 


026020 


020040 


042522 


053103 


5254 


026026 


020104 


020040 


051124 


5255 


026034 


021531 


000 




5256 










5257 


026037 


040 


050040 


020103 


5259 


026044 


020040 


020040 


054503 


5259 


026052 


041114 


020040 


042440 


5260 


026060 


0501 30 


052103 


020040 


5261 


026066 


051040 


041505 


042126 






000 






5263 










5264 


026073 


40 


050040 


020103 


5265 


026 102 


020040 


020040 


051 124 


5266 


026 110 


021531 


020040 


051040 


5267 


026 116 


041513 


020123 


020040 


5263 




05 1040 


042513 


0201 22 


5269 


026132 


020040 


05 1040 


0421 1 3 


5270 


026 1 40 




051040 


042113 


5271 


026146 


035101 


042040 


020122 


5272 


026154 


041 440 


046131 


020040 


5273 


026162 


020040 


051440 


051 125 


5274 


026170 


020040 


020040 


020040 


5275 


026176 


042523 


000103 




5276 










5277 


026202 


047527 


042122 


020043 


5278 


026210 


042440 


050130 


052103 


5279 


026216 


020040 


051040 


041505 


5200 


026224 


042126 


020040 


041440 


5281 


026232 


046131 


020040 


052523 


5282 


026240 


020122 


051440 


041505 


5283 


026246 


000 






5264 










5285 










5296 










5287 










528S 










5289 




026250 






5290 










5291 


026250 


001116 


001162 


001164 


5292 


026256 


001 166 


001170 


000000 


5293 










5294 


026264 


001116 


001162 


001164 



DH14I .ASCIZ / PC CYLA CYLB RKER RKDS TRYi/ 



DH16I . ASCIZ / PC CYLA CYLB EXPCT RECtfD TR¥#/ 



DHlTl .ASCIZ / PC CYLB EXPCT RECVD/ 



DH24t .ASCIZ/ PC TRY* RKCS RKER RKDS RKDAi DR CYl 



DH25: .ASCIZ /WORD» EXPCT RECVD CYL SUR SEC/ 



JERROR DATA POINTERS 
.EVEN 

DTlt .HORD SERRPC>tREG0r*ReGl«SREG2>»REG3r0 

DT7I .WORD SERRPC>SRE60>tREeif $RES2.(REG3,$REG4«0 
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5295 


026272 


001166 


001170 


001172 










5296 


026300 


000000 














5297 


















5298 


026302 


001116 


001162 


001164 


DTI 11 


.WORD 


SERRPCi 


> »REG0, *REG1 > tREG2 « tReG4 , SREGS , tREG6 , $REG7 . 


5299 


026310 


001166 


001172 


001174 










5 300 


026316 


001176 


001200 


000000 










5301 


















5302 


026324 


001116 


001162 


00U64 


DT17t 


.WORD 


SERRPCi 


,(REG0>tREGl,tReG2,0 


5303 


026332 


001166 


000000 












5304 
















r tREG10, SREG0, tRESl , tREG2 , $REG4, SREGS , SREG6 , SREG7 , 


5305 


026336 


001116 


001202 


001162 


OT24I 


.WORD 


SERRPCi 


5306 


026344 


001164 


001166 


001172 










5307 


026352 


001174 


001176 


001200 










5308 


026360 


000000 














5309 


















5310 










}DATA BUFFERS 






5311 


















5312 


026362 








IOBUF0t 








5313 


026362 


000030 






OUTBUFI 


.BLKM 


24. 


IIOBUF0 AND lOBUFl ARE 


5314 


026442 


000030 






BUFR4I 


.BLKU 


24. 


ITHO - 768 HORDS LONG BUFFERS 


5315 


026522 


000030 






BUFR5I 


.BLKH 


24. 


tNORHALLY USED FOR DATA TRANSFERS 


5316 


026602 


000030 






BUFR6t 


.BLKH 


24. 


ttO AND FROM DISK 


5317 


026662 


000030 






BUFR7I 


.BLKW 


24. 




5319 


026742 


000200 






BUFR10I 


.BLKH 


128. 




5319 


027342 


000200 






BUFRllI 


.BLKH 


128. 




5320 


027742 


000200 






BUFR12t 


.BLKH 


128. 




5321 


030342 


000200 






BUFR13I 


.BLKH 


128. 




5322 


030742 


000210 






BUFR14I 


.BLKH 


136. 




5323 


















5324 


031362 


001400 






lOBUFll 


• BLKH 


768. 




5325 


















5326 


















5327 


















5328 




000001 








.END 
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SEQ 011S 



ABRT 


016716 


BUFR13 


030342 


DRVDON 


001223 


EXT10 


012656 


NOSIN 


010752 


ADRES 


001450 


BUrR14 


030742 


DRVPTR 


001236 


EXT4 


006540 


NXTBA 


023436 


BADTMO 


002422 


BUFR2 


0013S2 


DRV.REa 


104416 


EXT5 


007276 


NXTDA 


023462 


BECIN 


010456 


BUFR4 


026442 


DR.RST 


016414 


EXT6 


010356 


NXTDRV 


003704 


BES8K 


013174 


BUFR5 


026522 


DSKAOR 


001432 


EXT7 


012114 


NXTPAT 


001426 


BIT0 ■ 


000001 


BUFR6 


026602 


OSHR ■ 


177570 


FCHECK 


024052 


NXTWC 


023556 


BIT00 • 


000001 


BUFR7 


026662 


DTI 


026250 


FDRIVE 


002U4 


OUTADR 


001262 


BIT01 > 


000002 


BUSADR 


001434 


DTlt 


026302 


FDRVEl 


003116 


OUTBUF 


026362 


BIT02 > 


000004 


CHKHDR 


007204 


DT17 


036324 


FFUNC 


001316 


PAia 


001414 


BIT0J * 


000010 


CHK8M0 


024000 


DT24 


026336 


FINISH 


011436 


PHI 


001416 


BIT04 ■ 


000020 


CH8H 


023704 


DT7 


026264 


FUNBEG 


033106 


PAT2 


001420 


BIT0S ■ 


000040 


CKSHR a 


104407 


EHTVECa 


000030 


FUNERR 


033730 


PATS 


001422 


BIT06 ■ 


000100 


CLRERR 


012106 


EMI 


024250 


GCYL 


016360 


PBUF0 




BIT07 ■ 


000200 


CMPAGA 


011170 


EM10 


024500 


GETBUF 


007770 


PBUFl 


001406 


BIT08 ■ 


000400 


CMPGRP 


014S46 


CKll 


024531 


GETINF 


016140 


PGSUBR 


001430 


BIT09 ■ 


001000 


CN.RDY 


016544 


EM12 


024547 


GOBAK 


011974 


P'^Q a 


177772 


BITl • 


000002 


CN,R8T 


016526 


EH13 


024571 


GOIYPE 


013524 


ni-QVEa 


000240 


BIT10 ■ 


002000 


COMPAR 


011144 


EM14 


034620 


GT3WR a 


104406 




014146 


BITl! ■ 


004000 


CON.RDa 


104421 


EM16 


024735 


GT4RG 


016106 


PLTGRP 


014033 


BIT12 a 


010000 


CON.REa 


104415 


EH2 


024307 


GT5RG 


016063 


PLTPT 


014663 


BIT!) a 


030000 


CR a 


000015 


EM20 


025110 


HT a 


000011 


PLTl 


014363 


BIT14 a 


040000 


CRLF a 


000200 


EM21 


025176 


INADR 


001260 


PRSPAT 


001434 


BITlt a 


100000 


CSEROR 


011600 


EM22 


025232 


INDXl 


001474 


PR0 a 


000000 


BIT2 a 


000004 


DDI8P a 


177570 


EH23 


025255 


INDX2 


001476 


PRl a 


000040 


BIT3 a 


000010 


DHl 


02S414 


EH24 


025276 


INDX3 


001500 


PR2 a 


000100 


BIT4 a 


000020 


DHU 


02S567 


eM25 


025312 


INDX4 


001502 


PR3 a 


000140 


BITS a 


000040 


DHl 3 


025664 


EM36 


025354 


INPT 


023746 


PR4 a 


000300 


BIT6 a 


000100 


DHl 4 


02S703 


EM27 


035372 


IOBUF0 


026362 


PR5 a 


000340 


BIT? a 


000200 


DH16 


025762 


EH3 


034333 


lOBUFl 


031362 


PR6 a 


000300 


BITS a 


000400 


DH17 


026037 


EH30 


035407 


lOTVECa 


020030 


PR7 a 


000340 


BIT9 a 


001000 


DH24 


026075 


EM4 


034337 


LF a 


000013 


PS a 


177776 


BIiNKSl 


002111 


DH2S 


026202 


EH5 


024355 


LUPHE 


010564 


PSH a 


177776 


BLNKS2 


002110 


DH6 


025462 


EHe 


034424 


LUPSIH 


010556 


PTGEN0 


010032 


BLNK$3 


002107 


DH7 


025512 


EM7 


024461 


LUPSW 


001333 


PTGENl 


010114 


BIiNKS4 


002106 


DISPLA 


001142 


ERCNTl 


001504 


LUPHCE 


011374 


PTGEN2 


010216 


BLNKSS 


002105 


DISPRE 


000174 


ERCNT2 


001506 


MESAGEa 


104417 


PTGEN3 


010260 


BLNKSb 


002104 


DMPREG 


017576 


ERCHT3 


001510 


MISCMP 


011743 


PTRN01 


010110 


BLNKS7 


002103 


DONE 


011562 


ERCNT4 


001512 


MSGE 


015770 


PTRN03 


010112 


BLNKS8 


002102 


OONTRK 


011522 


ERCNT5 


001514 


MSGl 


001603 


PTl 


001560 


BLNrs9 


002101 


DOSURl 


011554 


ERCNT6 


001516 


MSG10 


001743 


PT10 


001575 


BI.NK10 


002100 


DOHCHK 


012344 


ERCNT7 


001520 


MSGll 


001771 


PTll 


001600 


BbKKl 3 


802075 


DOHRT 


012150 


ERCNT8 


001522 


HSG12 


003027 


PT3 


001562 


BPTVECa 


000014 


DRHOLD 


002120 


ERRTYP 


017362 


MSGl 3 


003053 


PT3 


001564 


BRKDA 


016144 


DRIVAD 


001230 


ERRVECa 


000004 


MSGl 4 


003064 


PT4 


001566 


BTEOP 


0151S6 


DRIVS 


001224 


ERRl 


016322 


MSa2 


001610 


PT5 


001570 


BUFLCH 


001410 


DRIV0 


001232 


ERR2 


016244 


HSG3 


001616 


PT6 


001572 


BUFLGl 


001412 


ORIVl 


001234 


ERHCHK 


011330 


MSG4 


001640 


PT7 


001574 


BUFNO 


001446 


DRIV2 


001236 


ESR13 


015402 


MSGS 


001657 


PHRFL 


004170 


BUFR 


001266 


DRIV3 


001240 


ESRIS 


015310 


MSG6 


001716 


PMRVECa 


000024 


BUFRl 


001320 


DRIV4 


001242 


E8R20 


015456 


MSG7 


001733 


RDAGAI 


010566 


BUFR10 


026742 


DRIVS 


001244 


ESR2S 


015544 


HSIS 


034673 


RDCHR a 


104410 


BUFPll 


027342 


DRIV6 


001246 


EXEC 


023612 


MS17 


035043 


RDLIN a 


104411 


BUFRt2 


027742 


DRIV7 


001250 


EXECl 


023610 


NOHE 


010704 


RDOCT a 


104412 
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YMBOL TABLE 












READ 


010532 


ST2 


003436 


TYPDES 


022222 


lEOP 


015172 


(REG4 


001172 


REPEAT 


012612 


ST3 


003666 


TYPDS a 


104405 


lEOPCT 


015314 


(REGS 


001174 


REPMSC 


011220 


SWR 


001140 


TYPDSSa 


104424 


lERFLG 


001103 


(r<EG6 


001176 


REPTIH 


013124 


SWREG 


000176 


TYPE a 


104401 


(ERMAX 


001115 


(REG7 


001200 


RESDONa 


104423 


SH0 a 


000001 


TYPHSGa 


104420 


(ERROR 


017106 


(RESRE 


022364 


RESRCGa 


104414 


SH00 a 


000001 


TYPOC a 


104402 


(ERRPC 


001116 


(RTNAD 


015266 


RESVCCa 


000010 


SVI01 a 


000002 


TYPOH a 


104404 


SERRTB 


002122 


(SAVRE 


022326 


RES. DO 


016440 


SW02 a 


000004 


TYPOS a 


104403 


lERTTL 


001113 


(SAVR6 


033074 


RETRn 


001252 


SW03 a 


000010 


TYPTIM 


013662 


lESCAP 


001304 


(SCOPE 


016732 


RETRlf2 


001254 


SW04 a 


000020 


TY.HSG 


016033 


(FILLC 


001156 


(SETUPa 


000117 


RETRY3 


001256 


8H0S a 


000040 


NBUSAO 


001443 


(FILLS 


001155 


(3TUP a 


177777 


RKBA 


001462 


8H06 a 


000100 


WCAGAI 


011056 


(GDADR 


001130 


(SUPRS 


022266 


RKCS 


001456 


SW07 a 


000200 


HCEROR 


012006 


(GDOAT 


001134 


(SVLAD 


017044 


RKDA 


001464 


SN0e a 


000400 


HCERR 


012366 


(GET42 


015244 


(SVPC a 


000220 


RKD8 


001466 


SH09 a 


001000 


HCHI 


012372 


IGTSWR 


021070 


tSHR a 


163000 


RKDS 


001452 


SHI a 


000002 


WCHIl 


012364 


(HD a 


000000 


(SWRMra 


000000 


RKCR 


001454 


SH10 a 


002000 


HCLO 


012573 


(HIOCT 


021772 


(TKB 


001146 


RKPRI 


001470 


SHll a 


004000 


HCREPT 


011360 


(ICNT 


001104 


(TKCNT 


020536 


RKVEC 


001472 


8H12 a 


010000 


HDSKAD 


001440 


(ILLUP 


023070 


(TKINT 


030536 


RKHC 


001460 


SHI 3 a 


020000 


HRDCNT 


001436 


(INTAG 


001135 


(TKOENa 


020535 


R6 at000006 


SH14 a 


040000 


HRERR 


012164 


(ITEKB 


001114 


(TKQIN 


020530 


R7 a%000007 


8H15 a 


100000 


NRHI 


012324 


(LF 


001214 


(TKQOU 


020532 


SAVREGa 


104413 


8H2 a 


000004 


HRLO 


012166 


(LPADR 


001106 


(TKQSR 


020534 


SBRl 


006452 


SH3 a 


000010 


HRLOl 


013163 


(LPERR 


001110 


(TKS 


001144 


SBR2 


006476 


SH4 a 


000020 


HRTCHK 


011043 


(MNEH 


021661 


(TKSRV 


020606 


SBR3 


007150 


SHS a 


000040 


HHRDCN 


001444 


(H8HR 


021650 


(TN * 


000013 


SECPTR 


010352 


8N6 a 


000100 


XHE 


011366 


(MUL a 


000003 


(TNPHR 


023332 


SFTCHP 


011112 


8H7 a 


000200 


XXDPHD 


001330 


(MULT 


020414 


(TPB 


001152 


SIAO 


001542 


SHS a 


000400 


6AUT0B 


001134 


(NULL 


001154 


(TPFLG 


001157 


sizer 


024164 


SH9 a 


001000 


$BDADR 


001133 


(NWTSTa 


000001 


(TPS 


001150 


SKOON 


015076 


TBITVEa 


000014 


tBDDAT 


001136 


(OCNT 


022216 


(TRAP 


022616 


SHGRP 


014416 


TIMDON 


013774 


(BELL 


001306 


(OMODE 


022220 


(TRAP2 


023640 


SOAD 


001524 


TIMER 


001264 


tCHARC 


030410 


(OVER 


017072 


(TRP a 


000035 


SORT 


013266 


TIMSEK 


014722 


ICK8HR 


031000 


(PASS 


001100 


(TRPAO 


033652 


SPl 


012626 


TKVEC a 


000060 


8CMTAG 


001100 


(POWER 


023076 


(T8TNH 


001102 


SP10 


012650 


TPVEC a 


000064 


ICMl a 


000011 


(PHRAD 


023064 


(TTYIN 


021626 


SPll 


012652 


TRAPVEa 


000034 


ICM2 a 


000033 


SPMRDN 


033724 


(TYPDS 


017750 


SP12 


012654 


IRTVECa 


000014 


ICM3 a 


000011 


(PHRMG 


023060 


(TYPE 


020174 


SP2 


012630 


TSTRHS 


016642 


ICNTLG 


031643 


(PHRUP 


022776 


(TYPEC 


020344 


SP3 


012632 


TST.RHa 


104423 


tCNTLC 


031636 


(QUE8 


001313 


(TYPEX 


020412 


SP4 


312634 


ISTl 


004204 


tCRLF 


001313 


(RDCHR 


031303 


(TYPOC 


022030 


SP5 


012636 


TST10 


012120 


8DBLK 


030164 


(RDLIN 


031372 


(TYPON 


033034 


SP6 


012640 


TSTll 


012662 


(DB2D 


033433 


(RDOCT 


021672 


(TYPOS 


031774 


8P7 


012642 


TST12 


015150 


IDECVL 


033603 


(RDSZ a 


000010 


(XTSTR 


016754 


8P8 


012644 


T8T2 


004550 


IDOAGN 


015364 


(REGAD 


001160 


($GET4a 


000000 


SP9 


012646 


TST3 


005046 


tDTBL 


030154 


(REG0 


001162 


(0riLL 


022217 


STACK a 


001100 


T8T4 


005536 


lENDAD 


015354 


(REGl 


001164 


« a 


034362 


START 


002462 


TST5 


006544 


lENOCT 


015333 


(I^EGie 


001202 






STARTl 


003020 


TST6 


007302 


lENDMG 


015373 


(REG2 


001166 






STKLMTa 


177774 


TST7 


010362 


lENULL 


015270 


(REG3 


001172 







. ABS. 034362 000 



ERRORS OETECTEDl 

i5!:FlULf SL09ALS GSNfSSTEO? 
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8EQ 0117 



DZRKLDfDZRKLD/LIlME/NLlMClMDiCNO/SOL/NSQjDZRKLO.PU 
RUN«TIMEl 63 43 1 SECONDS 
RUN«;iME RATIOl 237/10e>3.i 
CORE USEOI 27K (53 PAGES) 



